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Flight Simulator II 
Scenery Disks 

The Challenge of Accomplished Flight 

With a realism comparable to (and in some ways even surpassing) 
$100,000 aircraft flight simulators, Flight Simulator II includes full 
flight instrumentation and avionics, and provides a full-color out-the- 
window view. Instruments are arranged in the format standard to 
modern aircraft. All the radios needed for IFR flight are included. 
Front, rear, left, right, and diagonal views let you look in any direction. 
Program features are clearly documented in a 96-page Pilot's Operat- 
ing Handbook. 

For training in proper flight techniques, Flight Simulator II includes 
another 96-page instruction manual, compiled by two professional 
flight instructors with over 8,000 hours flight time and 12,000 hours 
of aviation teaching experience. You'll learn correct FAA- 
recommended flight procedures, from basic aircraft control through 
instrument approaches. To reward your accomplishments, the 
manual even includes a section on aerobatic maneuvers. 



The Realism and Beauty of Flight 

Go sight-seeing over detailed, realistic United States 
scenery. High-speed graphic drivers provide an 
animated out-the-window view in either day, dusk, or 

night flying modes. w| 

Flight Simulator II features over 80 airports in four 
different scenery areas: New York, Chicago, Seattle, 
and Los Angeles. Additional Scenery Disks covering 
much of the United States are now available for all 
computer versions of Flight Simulator II. 



Each disk covers a geographical region of the country in detail, and is 
very reasonably priced. 

The Pure Fun of "World War I Ace" 

When you think you're ready, you can test your flying skills with the 
"World War I Ace" aerial battle game. This game sends you on a 
bombing run over heavily-defended enemy territory. Six enemy 
fighters will attempt to engage you in combat as soon as war is 
declared. Your aircraft can carry five bombs, and your machine guns 
are loaded with 1 00 rounds of ammunition. 

See Your Dealer. Flight Simulator II is available on disk for the 
Apple II, Atari eOO/XLVXE, and Commodore 64/128 computers for 
$49.95. Additional Scenery Disks are $19.95 each. A complete 
Western U.S. Scenery six-disk set is also available for $99.95. For 
additional product or ordering information, call (800) 637-4983. 



Apple II is a trademark of Apple Computer. Inc. 
Atari XL and XE are trademarks of Atari Corp. 
Commodore 64 and 1 28 are trademarks of Corr 
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Editorial 



As always seems the case, the summer 
months are the slowest time for sales in 
the personal computer industry. Most peo- 
ple spend this time of year enjoying out- 
side activities, such as swimming, sports, 
cruising and sweating. Personally, I enjoy 
the winter months just as well. But this 
past New England winter was a little 
much, even for me. Shoveling snow was 
never one of my favorite pastimes — espe- 
cially not in May! I'm hoping I can put 
my shovel away now until November. 

But back to business . . . Let's not kid 
ourselves. The releases of new 8-bit soft- 
ware haven't been flowing as they were 
in the past. I may be wrong, but wouldn't 
this be the perfect time for the software 
companies to release new products? Or 
has everything been written for the Atari 
that you would want? 

I don't think so. I do have most of the 
software that I'd ever need for my 8-bit 
and, if I never bought another piece of 
software, I could be using what I have for 
at least the next five years. But I'd still 
pkmk down the cash for a new piece of 
good software. 




Entry-level PC, 



Perhaps it's easier to go with the flow 
and write software for the computers 
everyone else is creating for. I suppose it 
is safer. Some companies have the right 
idea: release their software with flip-side 
disks. One side is for, let's say, the Apple, 
and the other for the Atari. They'll sell 
more, and the cost is much less than sep- 
arate packaging and marketing. 



So what do you say, software compa- 
nies? There are tens of thousands of peo- 
ple out there with the cash, just waiting 
for your products. I promise I'll make my 
neighbor buy his own. 
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what does Atari have 

in store for us this summer? 
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Expandable PC System. 





SLM Laser Printer. 



We attended the Atari Computer Show 
which took place at the Novotel Exhibi- 
tion Complex in London this past April. 
Because of their enormous success in Eu- 
rope, the STs were a big attraction again, 
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XE Computer Game System. 



with a major emphasis on MIDI applica- 
tions and the three new Mega STs. The 
new Atari SLM Laser Printer was also 
shown with the Mega STs as a low-cost, 
high-quality desktop publishing package. 
With the growing interest now in MIDI- 
compatible computers and desktop pub- 
lishing. Atari should be a leader in these 
fields if they play their cards right. 

The two new Atari PCs — the entry-level 
system and the expandable system — were 
also causing crowds to gather. It seems 
that the success of the STs has oversha- 
dowed the old game reputation Atari once 



had in Europe. Perhaps dealers and dis- 
tributors here in the States should follow 
suit. 

Of more interest to us 8-bit owners was 
the new Atari XE computer games system, 
which can be expanded with joysticks, 
data recorder [ugh!] and light gun. It is 
compatible with all existing Atari games 
software. I didn't hear a mention of one, 
but hope that you'll be able to hook up a 
disk drive, also. 

Atari realizes that video games are still 
alive and well. This seems to me like the 
perfect solution. We already have tons of 
the best games software. And making it 
compatible with the XE can only mean 
more new programs for us. 

So let's see what Atari does this sum- 
mer. From what I've heard, don't be sur- 
prised to see an Atari commercial on your 
TV. 'Bout time! 
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Reader comnient 



Missing linlcs. 

In the Atari Picture Storage Techniques 
article in ANALOG Computing's issue 50, 
there was an error in the paragraph im- 
mediately underneath the illustration of 
the Microlliustrator picture format (Fig- 
ure 1 on page 34). The last sentence in 
that paragraph should read: 

"A special case occurs when these 7 bits 
equal 0; then the next 2 bytes are inter- 
preted as the count value in MSB/LSB 
form." 

Also, a couple of sentences were inad- 
vertently left out of the Microlliustrator 
description, immediately following the 
above text. Those sentences should read: 

"When a Microlliustrator picture is ver- 
tically compressed, the screen is scanned 
in columns from left to right, a byte (4 pix- 
els) at a time. Data is compressed first 
from the even-numbered scan lines, then 
the odd." 

Sorry for any inconvenience this miss- 
ing data may have caused anyone! 

Charles F. Johnson 

Pacific Palisades, CA 

Checking modifier. 

This is my first letter to your fine maga- 
zine, and I would like to say that I have 
enjoyed it for several years now. 

I am writing to thank you for publish- 
ing two fine programs in issue 53: Hard 
Copy from Boyd E. Arnold and Check- 
Writer by Jeff Killeen. I've been using Mi- 
croCheck almost since it was published, 
and I think it is the finest applications 



program ever published in any computer 
magazine. 

Now to the "for what it's worth" por- 
tion of this letter. Much as I liked these 
two programs, I didn't want to not be able 
to "END" the menu program, so I wrote 
a modified Listing 6, to be added to D: 
MENU after it's been modified by Listing 
2. I've enclosed it "for what it's worth." 
Feel free to do with it anything you please 
(including throwng it out). 

I also noticed one slight flaw in the 
CheckWriter program as published, con- 
cerning spacing of the word and in the 
written amount of the check. Deleting 
Line 702 and changing Line 705 to read: 

765 MSG£tLEN(N5G$]+l,LENCM 
5G$)+5)=" AND '■ 

solved the problem for me. 

Again, thank you for publishing an in- 
teresting and informative magazine. Keep 
up the good work. 

Sincerely, 

Curtis W. Lacey 

North Fort Myers, FL 

20 POSITION 8,1:? «6;"L 
"JP05ITI0N 3,3!? tt5;"[3I 



HiT-Uff-H"! POSITION 3,5:? tt6 

;"SEARCH CHECKS" 

38 POSITION 3,7:? tt6;"BaLA 

NCE flCC0UNT":P05ITI0N 3,9: 

1 tt5; "UTILITIES" 

40 POSITION 3,11:? «6;"PRI 

NT REPORT" 

42 POSITION 3,13:? tte;"MRI 

TE CHECKS" 

44 POSITION 3,15:? tt6;"END 
■ I 

60 R0M=3: POSITION COL, ROM: 
? »6;"=>" 



160 ON CHOICE GOTO 118,120 

,130,140,145,147,150 

147 RUN "D:CHECKWTR" 

150 GRAPHICS 0:END 

168 DLDRDH=ROH:ROM=ROM+2:I 

F R0W=17 THEN R0W=3 

190 IF 0LDR0N=3 THEM POSIT 

ION 3,3!? tt6j"ENTER C HECKS 

": POSITI ON 3,5:? «6;"SEB 

200 IF 0LDR0M=5 THEN POSIT 
ION 3,5!? tt6;"SEARCH CHECK 
S"!POSITIQN 3,7:? tt6;"[3En3 
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05ITI0N 3,11:? tt6;"niHIHn 

M J.IAJ " 

225 IF 0LDR0M=11 THEN POSI 

TION 3,11:? «6;"PRINT REPO 

RT": POSITI ON 3,13:? tt6;"nS 

227 IF 0LDR0M=13 THEN POSI 
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ION 3,3:? n6;"SII33a3a3X& 



Express yourself! 

I am writing this letter as an appeal to 
all Atari 8-bit users and user groups. 

Take a look at all of the new software 
that is being put out for the other 8-bit 
computer (Commodore), as compared to 
that for the Atari. 

A few years ago, many "computer ex- 
perts" had Atari dead and buried . . . pre- 
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An Atari 8-bit Extra 

from ANALOG Computing 

It's a book of some of the best 
articles and software listings 
submitted to ANALOG 
Computing— tfiings we 

just couldn't fit in the 
monthly magazine 
pages. 

Owners of Atari 8-bit 
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the Extra a must. 
gives you games, 
tutorials, utilities, 
applications, and 
more— material 
you'll want 
to keep. 
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Call 

toll-free 

to order the 

Extra today 

1-800-345-8112 

When you're looking 
for the best in Atari- 
tutorials, games, reviews 
and programs— look for 
ANALOG Computing 

We're the magazine that 

always gives you something 

Extra. 



DorCt miss it! 
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Reader comment continued 



maturely. However, Mr. Tramiel provid- 
ed the needed transfusion, and it appears 
that Atari is again ahve and kicking. But 
there's not much new third-party software 
for the 8-bit machines, and there are some 
great- looking programs out there: Acti- 
vision-Gamestar — GFL Championship 
Football, GBA Championship Basketball; 
Electronic Arts — Pegasus; Epyx — Sum- 
mer Games II, World Games, Winter 
Games, Street Sport Series and Sub Bat- 
tle Simulator, just to name a few. 

Atari users: w^rite these companies and 
let them know that the Atari 8-bit is alive 
and well. Let them know that you want 
third-party support. Write Atari; remind 
them that the 8-bit computer still exists 
and there are a lot of users out here. En- 
courage them to push third-party support 
for the 8-bit machines. 

Steven van Beverhoudt 

St. Thomas, V.I. 

Star conflict. 

I read with interest Steve Panak's re- 



view of Star Raiders n in issue 47. I was 
most surprised to read that the review of 
a follow-up to the great Star Raiders 

should be entrusted to someone who ad- 
mits to never having played the original 
version. 

It was Star Raiders that tipped me into 
buying a 400 in 1981; I'm sure there were 
many more like me. The game still offers 
a tireless challenge after all these years, 
and it was a brave decision to try to make 
a follow-up. 

However, there are a few points that 
surprised me. First, after only a few even- 
ings, I was at Admiral status — it took five 
years to get near a similar level in the 
original. In an ideal world, the highest 
grade should be awarded to the player 
who can achieve the task in minimum 
time, with minimum damage. In the latest 
offering, one can gain a higher score and 
rank by delaying the slaughter of alien 
bases and picking off the onslaught of Zy- 
lons as they're created, and ruiming up 
very high scores on level one. The origi- 



nal required all slaying to be done quick- 
ly, using as little energy to reach top grade. 

Second, Star Raiders (the original) had 
the joystick response and ultimate playa- 
bility that only a well-practiced Atarian 
can understand. Zylons often had to be 
sought out and destroyed, and one often 
was attacked from behind and in front 
simultaneously. The new game has far less 
of this, despite its remarkably improved 
console graphics. 

Third — and perhaps least importantly 
— I really miss those pink, fuzzy photon 
torpedoes and the two-way intense battle 
which often ensued. 

To a new Atari owner, I guess the new 
game will be more appealing, but can I 
suggest any prospective buyer has a look 
— and preferably a feel — of the original 
before buying the new? 

Keep up the good work. 

David Rawlings 

Aberdeen Scotland, U.K. 

fcontinued on page 18) 
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at your fingertips 
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The aulhoritijlive insider's guide 




Essential inside info on 
the ST. Descriptions of 
sound & graphics chips, 
internal hardware, I/O 
ports. Commented BIOS 
listing. Indispensible ref- 
erence for your ST 
library. 450pp $19.95 

ST TRICKS & TIPS 

Fantastic collection of 
programs & techniques. 
Includes: super-fast RAM 
disk; time saving printer 
spooler; color hardcopy; 
plotter output; access- 
ories. 260pp $19.95 




GE|Piopief'3 Reference 




Easy-to-understand for- 
mat covers the w/orkings 
of GEM. Examples are in 
C and assembly. Covers 
VDI and AES functions 
and parameters. Serious 
programers should'nt be 
without. 410pp $19.95 

BASIC to C 

Move from BASIC to C 
language fast. Parallel 
examples show tech- 
niques and constructs in 
both languages. Pointers, 
variables, arrays, data 
structure. 230pp $19.95 



DISK DRIVES 




Inside 
and Out 



Covers file structures and 
data management. Also 
discusses floppy disks, 
hard disks and RAM disks 
from a programming and 
a technical perspective. 
Several utilities also 
included. 41 Opp $24.95 

ST PEEKS & POKES 

Enhance your programs 
with these quick-hitters. 
Discusses BASIC, LOGO, 
C and ML, using various 
interfaces, memory 
usage, reading & saving 
from/to disk. $1 6.95 




FOR BEGINNERS 
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3D GRAPHICS 




Written for the first-time 
user. Get a basic under- 
standing of how the ST 
works. How to set your 
system up. Introduction to 
LOGO and BASIC. 
Illustrations. Glossary. 
Index. 200pp $16.95 



Fantastic! Rotate, zoom, 
and shade 3D objects. 
Programs written in fast 
machine language. Learn 
the mathematics behind 
3D graphics. Hidden line 
removal, shading. 3D 
animation. 350pp $24.95 



Optional diskettes are available for $14.95 each. Call now ior 
the name of the dealer nearest you. Or order direct using your 
credit card. Add $4.00 per order for shipping. Foreign orders 
add $10.00 per item. Call or write lor your free catalog. 
Dealers inquires welcome-over 1 500 dealers nationwide. 
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FEATURE 




The making of 
AtariWriter Plus 



An inside look at 

the rocky road to stability. 



by Frank Cohen 



Back in the late 1970s, if you had an in- 
terest in microcomputers, you could eas- 
ily be considered a pioneer. There were 
no high school computer classes, and per- 
sonal computers were limited to those few 
who could afford an Apple II with 16K of 
memory at $1300. 

William Robinson was one of these pi- 
oneers. By the time he was thirteen, Wil- 
liam was already writing simple BASIC 
programs for the Commodore Pet. He later 
went on to learn how the new Atari 800 
worked. 

School offered him very little in satis- 
faction or achievement, whereas comput- 
ers had already given him a job — at a new 
company called Programma Internation- 
al. Riding his motor scooter through the 
Los Angeles business district, William 
would drive thirty miles from his home 
in Malibu, to work after school. 

Those were the days when developing 
a new product meant writing a 4K game 
in BASIC. William wrote the products 
Programma put on the market. The mar- 
ket consisted of a small string of computer 
specialty stores and direct mail-order 
sales. Personal computers were still most- 
ly unheard of, but that was changing. 

Within less than a year, Programma 
ceased to exist. Most of the people at Pro- 
gramma went on to establish new, larger 
companies. David Cordon, half-owner of 
Programma, later founded the Los An- 
geles based, multimilUon-dollar software 



and computer book publishing company 
we know as Datamost. 

By that time, William was avoiding 
high school as much as possible. His 
friends became his biggest link with the 
school. And English rapidly became his 
friends' best subject . . . but not because of 
their writing skills. 

Beginnings. 

One of William's first programs was a 
simple offering that let you type text into 
a Commodore Pet and print it out onto a 
computer printer. The concept of a word 
processor was still limited to mini-com- 
puters. 

Classroom English assignments given 
to William's friends meant they would be 
busy that night, working on their papers. 
The assignments were usually three pages 
of typewritten discussion. William found 
that his friends had completed only two 
pages of their assignments the night be- 
fore the papers were due. The solution oc- 
curred to him when he found that he 
could change a printout's line spacing (the 
amount of space between the lines of text] 
to make two pages of text fill three pages 
— and still look double spaced. 

On another occasion, even less text had 
been finished for an assignment due the 
next day. William found that, with certain 
daisy-wheel printers, he could vary the 
number of characters per inch. Typically, 
these printers yield ten characters per 
inch. By reducing the number to eight, 
each line of text on a page holds less text, 
so a two-page document becomes a three- 



page document. And the amount of text 
needed to finish a paper grew even lower 
when headers and footers were added to 
every page. 

The little document-printing program 
grew and grew, until eventually it became 
a fairly powerful text editor. Later, Wil- 
liam was to meet Pat Ketchum, owner of 
a small software company called Data- 
Soft. And Text Wizard 1 was released 
within a couple of months of their getting 
together. 

The meaning of success. 

That small company found, in a mat- 
ter of months, that it had marketed the 
leading word processor for the new Atari 
800. DataSoft had its first money-making 
product, after failing in the mini-computer 
software market and making an unsuc- 
cessful foray into the educational market 
with such products as Maxwell's Demon 
and Bishop's Square. 

By this time, William was sixteen years 
old — and receiving royalty checks each 
month for Text Wizard. He began work 
on Text Wizard 2. 

The meaning of success was very clear: 
he bought a new car and moved out of his 
parent's house. The freedom his little 
word processor had brought him was un- 
expected. 

Neither DataSoft nor William ever real- 
ized the full extent of Text Wizard's suc- 
cess, for Atari was now interested in the 
word processor. Soon, William would be 
hard at work on another new product, 
AtariWriter. 



ANALOG COMPUTING 



JUNE 1987 / PAGE 9 




The making of 
AtariWriter Plus continued 



From muddled beginnings. 

Under the terms of the agreement Pat 
Ketchum had negotiated with Atari, Wil- 
liam would develop Atai'i's new word pro- 
cessor and receive the royalties for his 
work. DataSoft was the commmiications 
link between William and Atari, through 
Gary Furr, an Atari product manager. 

This was the old Atari, full of corporate 
overhead and extremely difficult to work 
with. In due course, the company devel- 
oped a document called the "AtariWriter 
Internal Design Specification." Over 300 
pages thick, the IDS document described 
in exacting detail everything Atari want- 
ed in its new word processor. 

The IDS was filled with so many new 
functions that Mark Rieley, one of Data- 
Soft's programmers, was brought in to de- 
velop part of the new program code. Mai'k 
and William were already friends and 
shared a common bond : they weren't cer- 
tain of the company's stability. 

By this time, DataSoft had five pro- 
grammers working in their Northridge 
office. These programmers developed 
DataSoft's first "arcade-style" games. Ron 
Rosen created Pacific Coast Highway, a 
Frogger look-alike; Ralph Burris and 
James Garron designed the TRS-80 color 
computer version of The Sands of Egypt, 
later to be written on the Atari 800; Mark 
Rieley wrote Shooting Arcade; and this 
writer developed Clowns & Balloons. 

The programming group at DataSoft 
was very close, bound by a common dis- 
like for the group manager. They were 
also suspicious about the business deal- 
ings behind DataSoft, which led to a very 
strained situation. 

Though William was an outside de- 
veloper, he began working in DataSoft's 
office when the AtariWriter development 
schedule began to be pushed back. The 
friction between DataSoft and William 
grew more and more intense as the de- 
velopment schedule was delayed , and as 
Atari consistently came up with more 
functions to be added. 

The internal pressure at DataSoft ex- 
ceeded the bounds of normalcy the week 
before the company moved into its new, 
larger offices in Chatsworth. Four of the 
six programmers quit. Ron Rosen and 
Mark Rieley left to start another software 
company called Everyware, with Data- 
Soft's ex-president Gary Koffler. Frank Co- 
hen went to work for Fox Video games, 
developing a M*A*S*H cartridge, and 
Ralph Burris became an editor for a tech- 
nical book publisher. 

The AtariWriter program was complet- 



ed shortly after this shakeup, and Atari be- 
gan producing cartridges. Exactly 80,000 
cartridges were produced before the "back 
doors" were found. William and Mark 
had added some special effects to Atari- 
Writer, which could be seen when certain 
pins on the joystick ports were shorted to- 
gether. A space game, color scroll, sound 
effects demo and other such unusual fea- 
tures (for a word processor, at least) were 
included. 

Atari immediately threatened to sue 
DataSoft for damages. DataSoft discontin- 
ued royalty payments to William, who 
filed suit against DataSoft for late royalty 
payments on both Text Wizard and Atari- 
Writer. A month after his eighteenth 
birthday, William walked into a local 
General Motors showroom and drove 
away with a new 1984 Corvette. He paid 
cash. 

The friends get together. 

Led by Gary Koffler, the original Data- 
Soft programmers — Ron Rosen, Mark Rie- 
ley and William Robinson — joined forces 
to start a company called Everywhere. 
Their impetus was to develop new and 
original arcade-style games and produc- 
tivity soft"ware for the emerging home 
computer industry. 

The idea was basically sound, but the 
market was still not ready for software- 
only development houses. Financial back- 
ers of computer companies had seen the 
recent destruction of the home games 
market, with the release of the ET game 
cartridge on Atari's VCS 2600. The mar- 
riage of retailers, distributors and com- 
puter software houses abruptly ended, 
after the dismal showing of what had 
promised to be the most successful home 
computer game yet. 

Eventually, the founders of Everywhere 
went their own ways, developing products 
independently for established companies 
and foreign markets. For the most part, 
the software markets in England and Eu- 
rope kept these developers alive econom- 
ically. Atari was sold to the Tramiels 
shortly after this low period for home 
computers. Something new was needed 
to keep the home computer market going. 

The Tramiels began development of the 
new 16-bit line of ST computers, relying 
heavily on income from the older 8-bit 
line. The decision was made to release a 
new version of AtariWriter, to renew in- 
terest in the established 8-bit machines. 

Ron Rosen and William Robinson com- 
bined their programming talent in a new 
company, Microfantasy. The company 
was involved with the development of 



games for the Atari and Commodore com- 
puters. Mr. Robot and His Robot Factory, 

released through Datamost, was one of 
their more well known products. 

By this time, Ron Rosen had become a 
formidable negotiator, and landed the 
AtariWriter Plus contract. William was to 
develop the basic word processor, Ron the 
mail-merge database, and Stan Kistler the 
spelling checker. 

William was now nineteen, an acknow- 
ledged professional in word processing. 
AtariWriter Plus was designed from 
scratch, and included word count, 200- 
column editing, double-column printing, 
and many more advanced functions never 
before implemented on a home computer. 

AtariWriter Plus was developed over 
eight months, with another four months 
to integrate the spelling checker and data- 
base. The finished product was released 
on disk, so the space limitations of the 
original AtariWriter cartridge were not a 
problem. 

AtariWriter Plus was completed in the 
summer of '84 and hit the market in mid- 
1985. Today, the Atari 8-bit market, ex- 
tending into several million machines, is 
still very vital. At this writing, William 
had begun the new version of AtariWriter, 
which will work with the new 80-column 
adapter. 

The Future of Text Wizard. 

William Robinson founded a company 
called Regent Software little more than a 
year ago, developing two word processors 
for the new ST computers. 

Regent Word n, his latest version, could 
also be considered "Text Wizard 8." Wil- 
liam is now working on his new word 
processor, Regent Word III (really "Text 
Wizard 9"). The new program uses Mac- 
intosh fonts and will be a what-you-see- 
is-what-you-get word processor. 

The mark of a good programmer seems 
to be consistency. The Text Wizard word 
processors all seem to have a basic design 
philosophy about them: what's easy to use 
sells. In their time, all of the Text Wizards 
have been easy to use and state-of-the-art. 
Who knows, by the time he hits twenty- 
five, William's "Text Wizard 800" might 
be finished. H 

Frank Cohen, author o/ Regent Base, 

has been publishing software for the Atari 
line since his first program, Clowns G- 
Balloons, in 1982. 

[Readers should note that DataSoft/In- 
teUicreations is now under wholly new 
management from that described in this 
article. — Ed.l 
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Sst ^ts 



nstall your new character sets 
at machine language speed. 




by Darryl W. Howerton 



Imagine installing an entire new character set at machine 
language speed in a BASIC program. With Fast Sets, you 
can generate a subroutine that will install a new character 
set in your BASIC program in under 1 second. 

Standard methods. 

The usual ways to install a new character set in BASIC 
are: to read the information as data and use POKE to put 
it into memory, or to have the set read into memory from 
a disk file at program run time. While both of these are ac- 
ceptable, each has faults. POKEing data in is painfully slow 
if used for more than a few characters. Reading a disk file 
requires loading an entire character set from disk, whether 
you need it or not. The disk file method also requires the 
main program disk to be in the drive each time the pro- 
gram is run. 

A routine not commonly used is to store the redefined 
characters in a string and use machine language to relocate 
the data. This is not only very fast, but uses less memory 
than comparable data statements — and no disk access is re- 
quired. 

Getting started. 

Listing 1 is the Fast Sets subroutine generator program. 
Type this in, checking it with BASIC Editor 11 (from issue 
47), then save it to disk. 

Now type in Listing 2 and save it. When run, Listing 2 
will create a disk file called LINES. LST, machine language 
strings to be merged with Listing 1 — specifically. Line 5030 
and Lines 32010 to 32050. LINES. LST must be entered into 
the main code for Fast Sets. 

Listing 3 is the source code for the string MOVE$, the 
RAM mover routine used to relocate the standard and rede- 
fined character sets in Fast Sets and the subroutine it gener- 
ates. You do not need to type this in for Fast Sets to work. 



Theory of operation. 

Fast Sets loads a redefined character set you have creat- 
ed (or borrowed) and makes a BASIC subroutine for you 
to include in your own programs. The subroutine is com- 
pletely self-contained and is called with a simple GOSUB 
coimnand. 

Since a character set must begin on the page boundary 
of a IK block of memory, storage in a string can be diffi- 
cult; the string would need to be relocated to a page bound- 
ary before it could be used. Methods to move the string 
itself to a specific memory location tend to be rather cum- 
bersome to use. Fast Sets overcomes this by moving just 
the string data to a page boundary, through the use of a ma- 
chine language routine stored in the string MOVE$. 

MOVE$ is a completely relocatable routine to move RAM. 
The calling parameter to use MOVES in your own programs 
is: X=USR(ADR[MOVE$),FROM,TO,BYTES), where FROM 
is the address of the RAM to move, TO is the address where 
you want the RAM to move, and BYTES is the number of 
bytes to move. This routine moves memory 1 byte at a time, 
by starting at the bottom of the FROM location and work- 
ing its way up. Because of this, the TO location must be 
higher than the FROM location plus the BYTES. Otherwise, 
you will overwrite the area you're attempting to move. This 
problem does not occur when you're moving RAM down 
in memory. 

How the subroutine works. 

A full character set requires 1024 bytes of RAM. Since 
a page of memory is 256 bytes, a character set needs four 
pages reserved for it. In addition, certain combinations of 
GRAPHICS calls and the clear screen command can cause 
a portion of memory above MEMTOP to be cleared. For this 
reason, an extra page of memory is needed to protect the 
character set from this phenomenon. 

The Fast Sets subroutine will determine the location of 
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continued 



MEMTOP with yoiir memory configuration, and initialize 
the variable CHBAS with this value minus four pages. This 
is a pointer to the high byte (page number) of your rede- 
fined set. MEMTOP is then moved down five pages. 

This is a fairly standard way to protect an alternate charac- 
ter set. The strings are initialized and MOVES is called to 
move the standard Atari set to the new character set area. 
MOVE$ is called again to move tlie data in the string CSET$ 
to its proper location in the new character set. Memory lo- 
cation 756 is reset to point to the new character set, and 
the routine returns to the main program. 

One important rule to remember is: location 756 must 
be reset after each GRAPHICS call to point to the alternate 
character set. With a Fast Sets subroutine, you would make 
your graphics call and then POKE 756,CHBAS. 

Special characters. 

If you look at the subroutine generated by Fast Sets, you 
may see lines that define individual characters of the CSET$ 
string. These statements are there to take care of quote 
marks and RETURN characters in the character set. These 
two characters cannot be inserted into a string by using the 
ESCAPE key as the other "active" keys can. 

When Fast Sets runs into a quote mark or RETURN code 
in the character set data, an array variable is set, defining 
the position in the string and the type of data. A space is 
substituted for the character in the string CSET$. The neces- 
sary lines are generated, so the correct data will be insert- 
ed into the string when the subroutine is called. 

Using the program. 

Fast Sets is self prompting and contains extensive error 
trapping. By following the screen prompts, you shouldn't 
have any trouble. It isn't necessary to use the D: prefix on 
your files, unless you're using a drive other than Dl. 

The alternate character set you load is displayed at the 
bottom of the screen. The choices of lines of the character 
set refer to the lines of characters displayed here. Line 1 
would be the top line, Line 2 the second line, etc. Press the 
number corresponding to your choice. Do not press RE- 
TURN. If you should happen to make a mistake and need 
to make changes, press SYSTEM RESET and run the pro- 
gram again. 

Using the subroutine. 

The subroutine generated by Fast Sets should be merged 
with the program with which you want to use the alternate 
character set. First load your program, then use ENTER D; 
filename. ext to merge the Fast Sets subroutine with your 
program. 

Before you can use the alternate character set, you must 
GOSUB Jineno, where Jineno is the starting line of your 
subroutine. The alternate character set will be moved and 
installed. 

If your program does a graphics call after the Fast Sets 
subroutine has installed the alternate character set, you 
must POKE 756,CHBAS to restore the alternate character set. 
Otherwise, the standard Atari set will be re-enabled. 

Both the scalar and string variables used by the Fast Sets 
subroutine may be used by your program, as long as the 
subroutine is called be/ore your program uses them. The 



exception is the variable CHBAS, since this is the pointer 
needed to restore the character set after graphics calls. 

Random notes. 

The subroutine can be used to install an alternate charac- 
ter set for general programming uses, or to use with the G: 
printer device from ANALOG Computing 35. G: will print 
using whatever character set location 756 is pointing to. You 
simply enter the Fast Sets subroutine and then run it. An 
error will be generated , but this will not affect the installa- 
tion of the alternate character set. After installation, do not 
press SYSTEM RESET or the default Atari set will be rein- 
stated. Type NEW, then load or enter the program you wish 
to list to your printer, using G: and the new character set. 
If you have a graphics printer and don't have a copy of G: 
then run to the phone (or mailbox) and order a copy of is- 
sue 35 — or download a copy from ANALOG Computing's 
Atari SIC on Delphi! Your printer w^ill thank you for it. 

With careful planning, you can combine two or more 
character sets using the Fast Sets subroutine generator. Mul- 
tiple sets can be used with a Display List Interrupt (DLI) 
routine, having a Fast Sets subroutine to install each charac- 
ter set. The value in CHBAS would need to be stored in the 
memory location where your DLI expects to find it, instead 
of in the default CHBAS location of 756. You would also 
need to remove the portions of the first line of the subrou- 
tine that dimensions the strings and the line that defines 
MOVES. This should be done on all but the first Fast Sets 
subroutine your program calls. On all but the last Fast Sets 
subroutine your program calls, the statement POKE 106, 
CHBAS-1 in the first line of the subroutine should be re- 
entered as POKE 106,CHBAS. 

Segments of up to four character sets can be stored in the 
space of one set with the following steps. 

(1) In the first Fast Sets subroutine called, remove 
the GRAPHICS call from the first line of the subrou- 
tine and the POKE 756,CHBAS from the last line. 

(2) In ail Fast Sets subroutines called after the first, 
remove the first and second line of the subroutine. Also 
remove the line that relocates the Atari set in memory 
(the first USR call) and the POKE 756,CHBAS in the 
last line. These lines contain the initialization portions 
of the subroutine and are only needed once. 

(3) In the last subroutine called, make the last line: 
Jineno GRAPHICS 0:POKE 756,CHBAS.RETURN. 

If you did everything right, you now have parts of 
up to four character sets installed as one. 

The Fast Sets subroutine is automatically numbered in 
increments of 10. This can be changed by altering the incre- 
ment value in Line 2000 from 10 to whatever you would 
rather use. Line number overflow is checked for, to prevent 
accidental errors. 

Fast Sets supports drives 1, 2 and 8. If yom- system has 
more, or if you wish to use a hard disk, the program can 
be easily modified for your configuration. H 

DarryJ W. Howerton, with his B.S. in Communications, 
is the Control Room Supervisor for KAfT-TV, an ABC affiU- 
ate. He has owned and programmed an Atari 800 for the 
past four years, first in BASIC and lately with Action! He 
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also does some assembly language programming with the 
Atari AssembJer/Editor cartridge. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor 11, 
in issue 47. 



Listing 1. 
BASIC listing. 

on 1 REM *** FAST 5ET5 SUBROUTINE MRITER 

JG 2 REM *** BY: DARRYL W. HDMERTON 

XV 3 REM *** SEPTEMBER 1986 

NJ 4 REM 

HP 25 GOSUB 32eee:G0SUB 5ee8:GDT0 ISO 

YH 50 FOR K=5 TO 18:P05ITI0M 2,K:? SPS;:S 

OUND e,48iieii8-K:NEXT XiSOUND 8,8,0,0 

• RETURN 
MO ieo NUM=1024:FIH=NUM:BEG=0FF!0FF5ET=0N 

:G0SUB 50:P0SITI0N 2,6 
JL 110 POSITION 4,6:? "SELECT ft CHflRflCTER 
SET TO LO ftP" ; LINE^ lOe ; GOSUB IGOO 

cp 120 ? :? ■■ ig.r=v><:[r^ai " : fns ; -rttrtttKn 
rctttttrrggt"; " 

JJ 130 OPEN »1,4,0,FN$:G0SUB 7000:CL0SE » 

1 
XL 200 GOSUB 50:POSITIOH 3,6;? "SELECT A 

NOME FOR YOUR SUBROUTINE" : LINE=20O : GOS 

UB 1000 
HP 220 GOSUB 50: POKE CURSOR, ON : POSITION 2 

,6:? "STARTING LINE NUMBER? ";:INPUT « 

16,FS:IF F$="" THEN 220 
FP 230 POKE CURSOR, OFF:TRflP 6000 : LINE=220 

:LIN0=UflHF$) 
JP 240 IF LINO32OO0 THEN ? !? :? "QCAN N 

OT BE LARGER THAN 320001 ":GOTO 6090 
BT 250 IF FLAG THEN 308 
AM 260 ? :? " USE: 1. LINE 
2. LINE 2":? " 3. 
4. LINE 4" 
EO 267 ? " 5. TOP 2 LINES":? " 

6. BOTTOM 2 LINES":? " 7. W 

HOLE CHARACTE R SET" 
YF 270 ? ;? 



1":' ' 
LINE 



ENTER THE nunber OF YOUR 



:GET 82, A 

MK 280 IF Ai49 THEN NUM=256 : FIN=NUM 

PK 284 IF A=50 THEN NUM=256 : BEG=BEG+NUM: F 

IH=FIN-512 : OFFSET=NUM 
ON 288 IF A=51 THEN NUM=256 : BEG=BEG+512 : F 

IN=FIN-NUM:0FF5ET=512 
XU 290 IF A=52 THEN NUM=256 : BEG=BEG+768 : 

FFSET=768 
JY 294 IF A=53 THEM NUM=512 : FIN=FIN-NUM 
UP 298 IF A=54 THEN NUM=512 : BEG=BEG+NUM: 

FFSET=512 
PM 300 GOSUB 58:P0SITI0N 3,18:? "INSERT D 

I5K TO NRITE SUBROUT INE TO" : POSITION 8 

,12:? "PRESS IJA4l|Ji1 WHEN READY" 
EM 302 GET «2,A:IF A0155 THEN 300 
FP 303 GOSUB 50:PO5ITION 8,18:? " . . . WRITI 

NG SUBROUTINE. . .":POSITIOH 12,12:? "PL 

EASE STAND BY!" 
DD 365 TRAP eOOO : LINE=300 : OPEN «1,8,0,FNS 
LJ 310 ? «l;LINO;" MEMTOP=PEEKfl06J :CHBAS 

=MEMT0P-4:P0KE 106 . CHBAS-1 : GRAPHICS 0: 

DIM M0UE$C43J ,C5ETSt";NUM;"J" 
FX 320 GOSUB 2000:? «1;LIN0;" MOUE$=";CHR 

$ (343 ; MOgE$; CHR$ t34J 
6Y 330 FOR X=BEG TO FIN STEP 64: GOSUB 200 

0:? ttljLIHOj" CSETSC";X-OFFSET;"J="jCH 

RSC34) J 
LH 340 FOR J=0 TO 63 : K=PEEK tCHBAS+J+X-lJ : 

POKE CHBAS+J+X-1,255:P0KE CHBAS+J+X-1, 

K 



PRESS ANY KEY TO 



KG 345 IF K=34 OR K=155 THEN FIXC0,FIX)=J 

+ X-0FF5ET : FIX CI, FIX J =K : FIX = FIX+1 : K=32 
MU 350 PUT »1,K:NEXT J:? »1; CHR$ C34] : NEXT 

X 
NN 360 IF NOT FIX THEN 408 
AU 370 FOR X=0 TO FIX-1 STEP 4:G0SUB 2000 

:? ttl;LlHOj" "; 

GZ 375 FOR J=0 TO 3 : IF J+X>FIX-1 THEN J=4 

:GOTO 389 
PY 388 ? «1J"C5ETSC"JFIX(B,X+J);",";FIXC0 

, X+J) ; "J rCHRS t"; FIX II, X+JJ ; ") "; 
Ba 385 IF J<3 AND J+X<FIX-1 THEN ? ttl;":" 

UN 389 NEXT J : ? »1 

MF 390 NEXT X 

XT 400 GOSUB 2000:? ttl;LINO;" X=USR(ADRCM 

OVESJ ,57344, CHBAS»256, 1024)" 
OA 410 GOSUB 2000:? ttl;LINO;" X=USR(ADR(M 

OUE$) , ADRCCSETS) ,CHBAS«256"J : IF BEG>1 

THEN ? »!;"+"; BEG-l; 
U2 420 ? »l;",";NUM;")";GOSUB 2080:? ttl;L 

INO;" POKE 756,CHBA5:RETURN" 
LG 430 CLOSE ttl 
MD 900 GOSUB 58:PDSITI0N 15,10:? "finishe 

d!" 
SK 918 POSI T ION 3,16 ;? 

■name] I EBinsa '■ 

IG 920 IF PEEKt764J=255 THEN 920 

RK 930 IF PEEKt764)=47 THEN POKE 764,255: 

POKE 106,PEEK(2O81+4;GRAPHICS 8:TRAP 9 

50; RUN "D:MENU" 
PO 948 X=USRCADR(M0UE$1, 57344, CHBAS, 1024) 

:GOSUB 5100:G0T0 100 
01 958 END 
PO 1000 TRAP 6000:? "(DRIVE ttl ASSUMED UN 

LESSSPECIFIED)": POSITION 2,15:? "PRES 

5: IJAJllJil FOR DIRECTORY LISTING":? 
L5 1010 FN$= POKE CURSOR, OH : POKE 764,25 

5:P0SITI0N 2.10:? "ENTER:":? :? " F 

ILENAME.EXT=> ";: INPUT ttl6;F$ 
QQ 1020 IF FS="" then POP : GOTO llOO 
CA 1030 IF FSC1,2)<>"D;" AND FStl,3)<>"Dl 

:" AND FStl,3)<>"D2:" AND FSC1,3)<>"D8 

:" THEN fnS="D;":fnSC3)=fS:goto 1050 
GQ 1040 FNS=FS 
LF 1050 IF FNSt2,2)<"l" OR FN$t2,2)>"2" A 

ND FN$C2,2)<>":" AND FNSt2,2)<>"8" THE 

N POKE 195,160:G0T0 6000 
EF 1060 POKE CURSOR, OFF:? : RETURN 
LZ 1100 POKE CURSOR, OFF:GOSUB 50:POSITIDN 
6,9:? "DIRECTORY FOR WHICH DRIVE?":PO 

SITION 13,12:? "CI, 2, OR 83" 
BV 1105 GET tt2,A:IF A<49 OR A>56 THEN A=4 

9 
YH 1110 FS="D :».»";FSC2,2)=CHRSCA) ;OPEH 

ttl,6,0,F$ 

HO 1120 GOSUB 50:P OSITION 5,5:? "p — EQIQ 

aaTEHBiiHa^E" J CHRS tA+128) ,■ "i — , " 

ER 1130 FOR X=6 TO 16.5 STEP 0.5:INPUT ttl 

,F$:F$=F5C3) :IF FSC3,12)="FREE SECTO" 

THEN 1200 
HP 1140 IF X=INTfX) THEM POSITION 5,X;? " 

|";FS{1,8);" ";FSC9,11);" | "; :FLAG=l:G 

OTO 1160 
ZR 1150 POSITION 20,INTCX):? FSfl,8);" "', 

F$t9,ll);"|";FLAG=0 

L5 1168 NEXT X 

PY 1178 ? " ' ■IMJJJii^-yWJArmW — 

J":POKE 764,255 
NX 1180 IF PEEKC764)<>255 THEN POKE 764,2 

55: GOTO 1120 
5D 1190 GOTO 1180 
NK 1200 IF FLAG THEN POSITION 20,INTCX):? 

" |":FLAG=e 

OG 1210 ? " '- ■'«iKH.TJ!HJ;<=fcl.-WJA4IIJi» - 

J"j :CLOSE ttl 
RO 1220 IF PEEKC764) 0255 THEM POKE 764,2 

55: GOTO LINE 
OZ 1230 GOTO 1228 
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continued 



KO 2600 LIHO=LINO+10!IF LIH0>3Z767 THEM F 

L(IG = JL:LINE=220:P0KE 195,2O0:GOTO 6060 
Al> 2010 RETURN 
m 5000 MEMT0P=PEEK(106J :CHBflS=MEMT0P-4:P 

OKE 106,CHBft5-l:POKE 208, CHBftS : GRAPHIC 

5 0:SETCOLOR 2, 0, 4 : 5ETC0L0R 1,0,12 
EL 5010 CHB<i5=CHBAS»256:CUR50R=752:LET ON 

=0:OFF=l:OPEM tt2,4,0N,"K:":P0KE CUR50R 

,OFF:? 
PP 5020 DIM F$C15),FHStl5),ftSC0FF),FIKt0F 

F, 128J , SP$ (373 , DLI$ tl2) 
EF 5040 X=U5RtADRCM0UE$J ,57344, CHBfl5, 1024 

) : DLIST=PEEK C560) +PEEK (5611*256 + 4 : POKE 
CURSOR, OFF 
EK 5050 POKE DLI5T+2,7:P0KE DLIST+3, 6 : POK 

E DLIST+5,13:P0KE DLI5T+6, 13 : POKE DLI5 

T+20,141:POKE 54286,192 
FL 5060 X=INT{ADR(DLIS)/256J : J=flDR(DLI$J- 

H»256:P0KE 512,J:P0KE 513,K:P0KE 756, N 

5ET + 2 
CF 5070 ? "^ analog presents*":? 

■■ FAST SETS SUBROUTINE HRITER" 

:? " by* darryl w. howerton" 
HF 5080 FOR J=0 TO 3 : POSITION 4,19+J:K=J+ 

l:IF J=2 THEN K=0 
KO 5090 FOR X=fl TO 31:? "t"; CHRS (X+ (K- (J = 

31J»32); :NEXT X:NEXT J 
BK 5100 POSITION 10,10:? "Clearing arrays 

...":FOR X=0 TO l:FOR J=0 TO 128:FIXCK 

,J)=0:NEXT J:NEXT X 
til 5110 RETURN 
UU 6000 GOSUB 50: POKE CURSOR, OFF : TRAP 600 

5: CLOSE «1 
=ftL 6005 POSITION 3,10:ERR=PEEK(195) :POP 
HU 6010 IF ERR=170 THEN ? "CAN'T FIND FIL 

E=^ " ' FN$ ■■■■■■ 
DF 6020 IF ERR=144 THEN ? "NO DISK IS IN 

THE DRIVE!":? "(OR DISK IS WRITE PROTE 

CTED)" 
UH 6030 IF ERR=160 THEM ? "DRIVE NOT AUAI 

LABLE ON YOUR SYSTEM!" 
MM 6040 IF ERR=167 THEN ? "FILE REQUESTED 

IS LOCKED!" 
UO 6050 IF ERR=169 THEN ? "DIRECTORY IS F 

ULL! use another disk." 
MX 6060 IF ERR=162 THEN ? "DISK IS FULL! 

use another disk." 
LP 6070 IF ERR=18 THEN ? "ILLEGAL UALUE ! ! 



PRESS ANY KEY T 



KO 6080 IF ERR=200 THEN ? "SUBROUTINE LIM 

E NUMBER OUERFLOM! !":? " use SMaller 1 

ine nuHber at proMpt" 
m 6090 POSITI ON 6,16:? ' 

[.■^.i:t*<:il|=l ";POKE 764.255 
RL 6100 IF PEEK{764)<>255 THEN POKE 764,2 

55: GOTO LINE 
PN 6110 GOTO 6100 
BC 7000 TRAP 7O30:ADRHI=INT(CHBAS/256) :AD 

RL0=CHBA5-ADRHI»256 
KY 7010 I0CB=848:P0KE IOCB+2, 7 ! POKE IOCB+ 

4,ADRL0:P0KE I0CB+5,ADRHI:P0KE lOCB+B, 

0:POKE IOCB+9,4 
5C 7020 I=USR(ADR("hhh2LU[[l"J ,16J 
AO 7030 RETURN 
GO 32000 MEMTOP=:PEEK(106) :CHBAS=MEMT0P-4: 

POKE 106,CHBAS:NSET=CHBA5:GRAPHICS 0:D 

IM M0VE$(43) ,CSET$(256J 
GP 32060 X=U5R (ADR (M0UE$} ,57344, CHBASK256 

,1024) 
PD 32070 X=USR (ADR (M0UE$1, ADR [C5ET$) , CUBA 

5*256+768,256) 
MT 32075 FOR X=CHBAS»256+512 TO CHBAS«256 

+519:P0KE X,0:MEXT X 
EJ 32080 RETURN 



Listing 2. 
BASIC listing. 



HT 1 REM *it* PROGRAM TO CREATE LINES 
IG 2 REM it** 5030 AND 32010 THRU 32050 
AE 3 REM »»* IM A FILE CALLED LINES . LST 
JM 4 REM **» WHICH IS TO BE MERGED WITH 
CF 5 REM *«» THE MAIN FAST SETS PROGRAM 
HL 6 REM 
C5 10 GRAPHICS 8:? "PUT A FOR MATTED DISK 

IN DRIVE »1 AMD":? "PRESS ■;»^<ll;ri "; :0P 

EN ttl,4,0,"K:":GET ttl,A 
AF 20 ? "^WRITIMG FILE..." 
YS 30 CK=0:CK5UM=0: CLOSE ttl:OPEN ttl,8,0," 

D: LINES. LST": RESTORE 
GP 40 FOR X=l TO 28: FOR 1=1 TO 16: READ J: 

PUT »1, J:CK=CK+J:IF CK>1000 THEN CK=CK 

-1000 
PD 50 NEXT I:READ CKSUM:IF CKOCKSUM THEM 
? "ERROR IN DATA...":? :? "CHECK WITH 
BASIC EDITOR II AND RE-RUN":GOTO 70 
HZ 60 NEXT X 
YA 70 CLOSE ttl : END 
JP 1000 DATA 53,48,51,48,32,83,80,36,61,3 

4,32,34,58,83,80,36,849 
RJ 1010 DATA 40,51,55,41,61,34,32,34,58,8 

3,80,36,40,58,41,61,646 
ZI 1020 DATA 83,80,36,58,68,76,73,36,61,3 

4,72,141,10,212,173,208,67 
UA 1030 DATA 8,141,9,212,104,64,34,155,51 

,50,48,49,48,32,77,79,220 
HE 1040 DATA 86,69,36,61,34,104,184,133,2 

11,104,133,210,104,133,213,104,59 
XE 1050 DATA 133,212,104,133,214,104,170, 

208,2,198,214,160,0,177,218,145,443 
MY 1060 DATA 212,208,208,4,230,211,230,21 

3,202,208,242,198,214,16,238,96,365 
ZT 1070 DATA 34,155,51,50,48,50,48,32,67, 

83,69,84,36,40,49,41,302 
VZ 1080 DATA 61,34,0,0,12,24,0,24,48,0,0, 

12,62,102,118,252,43 
LH 1090 DATA 204,0,0,31,51,126,108,204,24 

8,8,8,31,57,112,96,204,515 
TA 1188 DATA 248,8,0,60,54,102,102,204,24 

8,8,8,63,48,124,96,192,56 
BB 1118 DATA 252,8,8,63,48,124,96,192,192 

,0,0,31,48,96,110,204,512 
FC 1120 DATA 252,0,34,155,51,50,48,51,48, 

32,67,83,69,84,36,40,612 
PS 1130 DATA 54,53,41,61,34,0,51,51,126,1 

02,204,204,8,8,63,12,668 
FM 1148 DATA 24,24,48,252,8,8,3,3,6,6,204 

,120,0,8,51,54,463 
LE 1158 DATA 124,120,216,264,8,8,48,48,96 

,96,192,252,8,8,51,55,965 
PM 1168 DATA 127,187,198,198,8,8,51,59,12 

6,126,220,264,8,8,38,51,462 
BM 1170 DATA 102,102,204,120,0,34,155,51, 

50,48,52,48,32,67,83,69,679 
RI 1180 DATA 84,36,40,49,50,57,41,61,34,0 

,62,51,102,124,192,192,854 
KS 1190 DATA 0,8,38,51,102,102,216,188,6, 

8,62,51,162,124,216,204,222 
UL 1288 DATA 8,8,31,48,124,14,66,248,6,8, 

63,12,24,24,48,48,958 
TC 1216 DATA 8,0,51,51,162,162,284,252,8, 

6,51,51,162,162,124,48,198 
PC 1220 DATA 6,8,51,51,167,127,238,198,8, 

34,155,51,56,48,53,48,489 
MJ 1238 DATA 32,67,83,69,84,36,48,49,57,5 

1,41,61,34,6,51,51,215 
CJ 1248 DATA 68,66,264,284,8,8,51,51,60,2 

4,48,96,6,8,63,6,142 
TC 1256 DATA 28,48,96,252,8,8,12,12,24,24 

,8,48,8,24,24,24,758 
MA 1266 DATA 24,24,24,24,24,8,128,24,24,2 

4,24,126,8,8,8,28,256 
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ML 1270 DOTft 54,99,0,8,8,0,8,8,0,8,8,255, 

6,34,155,8,847 
00 1280 REM » 448 BYTES 



Listing 3. 
Assembly listing. 

M0VE$ RAM M8UER SUBRSUTINE 
BY D.M. HOMERTON 
CftLL FROM BASIC WITH THE FORM: 
K=USR CADR tMOUE$) , FROM, TO,»BYTESJ 
where: FR0M=MEM. LOCftTIOH TO MOUE 
TO=TflRGET LOCATION 
ttBYTES=MO. OF BYTES TO MOUE 

RELOCATABLE 

ZERO PGE STORAGE 

FOR LOC USED IM 

SUBROUTINE 

UNUSED-DISCARD 

HI BYTE OF FROM 

STORE IT 

LOW BYTE OF FROM 

STORE IT 

HIGH BYTE OF TO 

STORE IT 

LOW BYTE OF TO 

STORE IT 

HI BYTE ttBYTES 





»= 


$8608 


FROM 


= 


$D2 


TO 


— 


$D4 


NUN 


PLA 
PLA 


$D6 




STA 


FROM+1 




PLA 






STA 


FROM 




PLA 






STA 


TO+1 




PLA 






STA 


TO 




PLA 







STA 


NUM 




PLA 






TAX 






BNE 


START 




DEC 


NUN 


START 


LDY 


»e 


MOUE 


LDA 


CFROM), 




STA 


CTOJ,Y 




INY 






BNE 


NEXT 




INC 


FRON+1 




INC 


TO + 1 


NEXT 


DEX 






BNE 


MOUE 




DEC 


NUM 




BPL 


MOUE 




HTS 





STORE IT 
LO BYTE ttBYTES 
X IS COUNTER 
GO AHEAD 
PREUENT MOUING 

EXTRA PAGE OF MEM 
USE FOR INDEXING 
;BYTE TO MOUE 
MOUE IT 

INCREMENT INDEX 
IF<>8 A PAGE 

HASN'T BEEN MOUED 
INCREMENT THE 
HIGH BYTES 
-LO BYTE COUNTER 
MOUE ANOTHR BYTE 
-HI BYTE COUNTER 
IF POS DO MORE 
RETURN TO BASIC 



800 4-PIECE BOARD SET — $28.50 new tested parts complete with ics 

INCLUDES 800 MAIN, CPU, 10K ROM, AND POWER BOARD 



800/400 MODULES 

NEW PARTS COMPLETE WITH IC'S 

$ft50 



^ EA. 

All Modules 

Complele 

with 

ICs 



• 800 Mam Board 

• 800 400 CPU With GTIA 

• 8001 OK B O.S. Module 

• 16KRAMCX853 

• 400 Main Board 

• 800 Power Supply Board 

• 400 Power Supply Board 

• 800 XL Modulator 



INTEGRATED CIRCUITS 



.ROM . 
•ROM . 
•ROM . 
•Oelav . 



. C012399B 
. C012499B 
. C014599B 
. CO60472 
. cot 0444 



•CPU . 

• CPU 

• CPU . 

• Pokey 

• PIA . 

• GTIA 

• Antic . 

• PIA . 



. . cot 4806 
cot 4377 6502 
cot 0745 
cot 2294 
0014795 
cot 4805 
cot 2296 
cot 0750 



15 or more — $3.50 Ea. 



DISK DRIVE 

CUSTOM 810 DRIVE 

Fully operational 810 mounted on acrylic 
base No case Includes I O cable and power 
supply 

w Happy V.7 — S1 79.00 



$9500 



810 MODULES 

810 Side Board S2950 

810 Side with Data Sep . . .S39 50 

810 Power Board SI 5.00 

810 Analog Board S1000 

Data Separator Si 2 50 

MISC. HARDWARE 

600XL 64K Upgrade . . . .329,95 

C021697 310.00 

Faslchip lor 800 400 . . . .31550 

1050 FDC 2793 $19.50 

850 Interlace with Case . . 5120.00 

Numeric Keypad SI 5 00 

850 or PR Printer Cable . . .512.50 

PR Connection 565.00 

Joystick Cable 95 

BOARD SETS 
New Parts complele with IC s 

800 4 PIECE BOARD SET 
Includes 800 Mam CPU 1OK ROM. 
and Power Board 328 50 

810 BOARD SET 

Sideboard with Separator. Rear Power 
and Analog Boards 357.50 

400 3 PIECE BOARD SET 

Includes 400 Mam CPU and Power 

Supply Board 320.00 

400 Keyboard 312.50 



AMERICAN TV 



Mail Order and Repair . . . 15338 Inverness St., San Leandro, CA 94579 

Business Address l 988 Washington Ave , San Leandro, CA 94577 

NO MINIMUM ORDER! We accept money orders, personal checks or 
C.O.D s VISA. Master Card okay. Credit cards restricted to purchases over 
S20.00 No personal checks on C O D — Shipping: S4.00 shipping and 
handling on orders under Si 50.00. Add S2.00 for CO.D orders, Calif, 
residents include 6''-2% sales tax. Prices subject to change without notice. 

Much motel Send SASE for free price list 'Alan is a reg Irademark of Atan Corp 



MANUALS 

SAMS Service Manuals lor 800 or 400 
or800XLor130XE . . . 519.50 ea. 
1050 Service Manual . . . .519.50 
520ST Service Manual . . .539.50 
Inside Atari Basic 5 5.00 

HAPPY ENHANCEMENTS 

810 Version 7 Enhanc. . . .589.95 

1050 Happy 3139.50 

810 V.7 Update 547.50 

850 BARE BOARD 

Includes Parts UsI. 

Instructions 310.00 

Bare Board With all ICs . . . $42 50 

CONNECTORS 

1013P1N PC Mount .... 54.50 
1 Cable Plug Kit 54.50 

EDITOR/ASSEMBLER 

Editor Assembler Cartridge 

Write your own High Speed 6502 

Language Programs. 

Written by Atari, Works with all Atari 

Computers except ST. 

Manual not included . . . .510.00 

Cart, w Atari Roots 522.95 

BASIC CARTRIDGE 

Basic Rev "A Cartridge works with all 
Atari Computers except ST Includes 
manual 

800XL Owners Note' Use this Cart- 
ridge while programming to elimi- 
nate the severe errors in the Buill-in 
B" Basic 31000 



POWER PACKS 

Replacement Transformer lor: 
800 400, 810. 1050. 1200XL. 
1020 514.50 

ATARI ROOTS BOOK 

A Guide to Assembly Language Pro- 
gramming 514.95 

CARTRIDGE MAKING 
SUPPLIES 

1 6K EPROIVI Board with case, uses 

two 2764s S5.95 

to or more S4 95 ea 

Proburner Deluxe EPROfVl Burner in 
a cartridge, lor 800 400 & XL XE 
series Programs EPROMS 2716, 
2732, 2732A, 2764, 27128, 2532. 
+ EEPflOMS 2816A. 52B13. 
52B33 Reads 2K to 8K Atari 

ROMS S14500 

2764 EPROM S395 

SOFTWARE 

5 7.00 
36.50 
55.00 
55.00 
55.00 
55.00 
55.00 
35.00 
35.00 
55.00 
57.50 
310.00 
310.00 
310.00 



Alan Joystick . . . 
Atari Pacdles CX40 
Donkey Kong Cart 
Pac-Man Cartridge 
Eastern Front Cart. 
Crosslire Cart. . 
Chicken Cartridge 
Serpentine Disk . 
Steller Shuttle Disk 
The Factory Disk 
Spanish Lessons 
Q'Bert Cartridge 
Popeye Cartridge 
Kindercomp Cart. 



CALL TOLL FREE 
1-800-551-9995 



SERVICE RATES 

Flat Service Rates below in- 
clude Parts & Labor, 60-Day 
Warranty 

800 839.50 

850 S39,50 

400 $29,50 

1200XL S49.50 

810 $69.50 

800XL 349.50 

1050 $85.00 

800 Keyboard Repair . . , $25.00 
Above units repaired or exchanged 
with rebuildable exchange. Include 
S7.00 return shipping and insurance 



10K Rev. "B" Upgrade 

for older 800 400's 
End printer disk drive timeouts and 
OTHER ERRORS Many new pro- 
grams require Rev B Type the follow- 
ing peek in Basic lo see if you have 
Rev B PRINT PEEK(58383). 
If the result equals 56 you have the old 
OS Three Chip ROM set with 

instructions S7.50 

Complete 10K Rev.B moduleS9.50 

GTIA Upgrade For 800/400 

Add additional graphics modes and 
ma<e your older computer compatible 
with the latest software 
Instructions included . . . $4.50 

810 Drive Upgrade 

Greatly improve the performance 
of your older 810, Stabilize tfie 
speed with the addition of an 
analog and redesigned rear board 
Instructions included . . S27.50 



IN CA CALL 
415-352-3787 
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EXTENDED HOURS 



MON. - FRI. 9A.M.-9P.M. CST 



SAT. 11A.M.-5P.M.CST 



ATARI 520ST / ATARM040ST 



ATARI 520ST SYSTEM 
PACKAGE - CALL 

INCLUDING RGB OR MONOCHROME MONITOR. 

MOUSE. DISK DRIVE.BASIC. 

TOS ON ROM. AND RF MODULATOR 

FULL MANUFACTURERS WARRANTY APPUES 



ATARI SF 314 DISK DRIVE 

DOUBLE SIDED/ I MEGABYTE STORAGE 



CALL 



ATARI 1040ST SYSTEM 
PACKAGE - CALL 

INCLUDING RGB OR MONOCHROME MONITOR, 
MOUSE, DOUBLE-SIDED DISK DRIVE,BASIC 
TOS ON ROM, AND BUILT-IN POWER SUPPLY, 
FULL MANUFACTURER'S WARRANTY APPUES 



ST MODEM PACKAGE 

•AVATEX 1200HC MODEM 

*ST MODEM CABLE 

•ST TALK TELECOMMUMICATIONS PACKAGES 



SUPRA 

20 MEG 

HARD DRIVE 

ONLY 



$559 



OKIMATE 20 COLOR PRINTER 
& 
ST PLUG N' PRINT 



$145 



$199 



EPSON 



STAR MICRONICS 



LX86_ 
FX86E_ 



.^19 
-399 



-A79 



EX 1000- 
FX 286 E_ 
LQ 800._ 



LQIOOO- 
LQ 2500.. 



NX-in 


CM 1 


NL-1Q 


.CALL 


NP-in 


CM 1 


NX-1R 


19Q 


Nn.1?; 


d^q 


NR-15 


J39 


PCWERTYPE 


1R9 



J19 
_729 

-1 149 NB 24/15 (24 WIRE)_CALL 



PANASONIC 

PANASONIC 10801 199 

PANASONIC 10911 259 

PANASONIC 10921 349 

PANASONIC 3131 279 

PANASONIC 3151 ^409 

PANASONIC 1592 419 

PANASONIC 1595 539 



OKIDATA 

OKIDATA 182 

OKIDATA 192 

OKIDATA 193+ 

OKIDATA 292 E 

OKIDATA 293E 



-249 
-369 



-559 
J99 



CANON 

CANON A-50 

CANON A-55 

CANON A-60 



.389 
.349 



SEIKOSHA 

SP-180 169 

SP-1000A 199 

SP-1200 209 



BROTHER 

BROTHER 1009 1 39 

BROTHER 1509 379 

BROTHER 1709 489 

BROTHER HR 35 ^749 

TWINWRITER 5 839 



ST ADVENTURES 

Hacker 17.95 

Hacker II 25.95 

Scnbg 24.95 

Black Cauldron 25.95 

Apshal Trilogy 25.95 

Universe II 44.95 

The Payin__. 29.95 

Stargllder-. 29.95 



MICHTRON 

BBS 2.0._. 48.95 

Business Tool 31.95 

Calendar 1 8.95 



ST EDUCATIONAL 

Decimal Dungeon 24.95 

24.95 

24.95 



Comefman.- 

DOS Shell 

Edio 



-31.95 
.^4.95 



Dungeonmaster 

Alternate Reality„ 

Tass Times 

Mercenary 

Autoduel 



24.95 

24.95 



Major Motion.- 
Mi-Term_ 



MIchtron Utilities — 
Ca-ds 



-37.95 
-24.95 



Fraction Action 

Kinderama . 

Read 4 Rhyme 

Math Wizard 

Animal Kingdom.- 

Speller Bee. 

Kid Talk 

Math Talk 



24.95 

24.95 

24.95 

31.95 

31.95 

31.95 



INFOCOM ST 

Forever Voyaging 29.95 

Bally Hoo 25.95 

Bureaucracy , 25.95 

Cutthroats ^._25 . 95 

DeadBne . 31 .95 

Enchanter 19.95 

19.95 

28.95 



Winter Games 

Rogue-. 



ST ARCADE GAMES 

Skyfox- 



24.95 

24.95 



Super Huey-. 
Mean 18 



Hitchtkor 

Infidel 



Famous Course Disk- 
Leader Board 

Brattacus 



-32.95 

_25.95 



The Animator— 
Time Bandits-- 



Ogre 

Defender of Crown 32.95 

S.D.I 32.95 

Balance of Power 32.95 

Ultima III or IV 38.95 

Portal 32.95 

Kings Quest 1,2 or 3 32.95 

Space Quest 32.95 Karate Kid ll_ 

Tracker 29.95 GFA Bask;_ 

Cokinial Conquest 25.95 Trimbase„ 

RoatJwar 2000 25.95 ShutUe 2_ 

Wizard's Crown 25.95 M-Cadie_. 

Rings of Zilfln 25.95 

SInbad 32 . 95 

GokJen Pati 29.95 

Phantasie 1.2 or 3 25.95 

ST ACCESSORIES 
RIp'n' nie II- Micro...19.95 

Dustcovers Call 

3.5 Drive Clean Kit 16.95 

llfciuse Pad 8.95 

Mouse House 6.95 

6 Way Surge 

Protector 19.95 

Anti-Glare Screen 19.95 

6 FT SF 354 Catjie 19.95 

ST TELECOMM 

ST Talk Vor 2.0 18.95 

BB/ST 31 .95 

Flash 27.95 

I.S Talk. 31 .95 



Mighty Mail 31.95 

Personal Money Mgr™31.95 

Pinball Factory 24.95 

Financial Future 24.95 

Eight Bail . 18.95 

Hard Disk Backup 24.95 

Match-point 24.95 

,—24.95 
_48.95 
_62.95 
_24.95 



First Shapes 31 .95 

Winnie the Pooh 15.95 

ADVAUcmoRcens 

Read-A-Rama ^_ 3 1 .95 

Aesop Fables 31.95 

Magical Mylhs 31.95 

All About America 31 .95 

Adv. of Sinbad 31 .95 

Arabian Nights 31.95 

Wlztype 25.95 

Buzzword 29 . 95 

tst Letters and Words_31.95 
Math Talk Fractions — 31,95 



ST UTILITIES 



Journey to ttw Lair 32.95 

GFA Compiler 48.95 

Realtizer 149.95 

ST PRINT UTILITIES 
Rubber Stamp 24.95 



Music Studio-. 

Time Link 

Middipiay- 



Prinlmaster Plus — 
Megafont ST- 



..-24.95 
..-24.95 



Micro Cookbooit-.. 

CZ Droid 

EZ Track 

Write 90 

Fast 



.-32.95 
—31.95 
-32.95 
-.32.95 
-.69.95 
...39.95 
_18.95 
-..31.95 



Art Gallery 1 or 2 18.95 

Typesetter Elite 31.95 

PM Interface 18.95 

Certificate Maker 31.95 

Library 1/Certificate 

Mkr 21 .95 

ST WORD 
PROCESSORS 

Regent Word 11 48.95 

.48.95 
-24.95 



Wordwriter ST- 
Thunder— 



Labelmaster Elite. 27.95 

Video Wizard - 39.95 

K-Switch 27.95 

Desk Cart .72.95 

CASIO KEYBOARDS 

CZ 101 . Call 

CZ 230S Call 

DESKTOP PUBLISHING 

Drawrlte 99.95 

Publishing Partner 99.95 

HIPPOPOTAMUS 
Call for Items and prices 



Leafier Goddess 25 . 95 

Moonmist 25 . 95 

Planetfall 25.95 

Sea stalker -.25.95 

Sorcerer 28.95 

Spellbreaker 31.95 

Starcross 31.95 

Suspect 28.95 

Suspended -31.95 

Trinity 25.95 

Wishbrlnger 1 1 .95 

Wimoss 25.95 

Zork 1 25.95 

Zork 11 or 111 28.95 

Hollywood Hijinxs 25.95 

ST LANGUAGES 

Persorml Pascal 49.95 

Mark Williams C 1 14.95 

Metacomco Pascal ^69.95 

Macroassembler — ^ — 49.95 

Lattice C 99.95 

Cambridge Lisp 139.95 

Wodula 11 49.95 

Metacommco Make 49 .95 

Modula II Developer' Call 

Fast Basic 89.95 

Fortran 77 124.95 

-44.95 



Silent Service 

Flight Simulator 11__ 

Champ. Wrestling 

Worid Games 

Video Vegas.- _ 

Strip 'Poker. — - 

Little Computer Peo- 
G*) 



-14.95 
-25.95 
-32.95 
-25.95 
-33.95 
-24.95 



Super Cycle- 

ST Pool 

Indoor Sports.- 



-.24.95 
..25.95 
-11.95 
-31.95 



Joust 20 . 95 

Star Raiders 20.95 

Chessmaster 2000 29.95 

Tenth Frame 25.95 

Shan^ai 25.95 

3-D Helicopter 33.95 

Micro League Baseball..39.95 
WWF Micro Wres1iing-39.95 

ST BUSINESS 

VIP Professional Call 

Swiltcalc ST 48.95 

Isgur Portfolio... 124.95 

Rnanciai Cookbook 32.95 

DAC Payroll 32.95 

DAC Easy Accounting — ^44.95 

Dollars and Sense 64.95 

Home Accoirtant —.—31 .95 

Sylvia Porter 48.95 

A-calc Prime ^—39.95 



24.95 

22.95 

32.95 

F-15 Strike Eagle 27.95 

High Roller Simulator_32.95 
Two on Two Basketball-25.95 

Deep Space 29.95 

Arena 22.95 

ST Karate 22.95 

The Wanderer 25.95 

Champ Baseball '86 25.95 

GFL Footbal 25.95 

Harrier Sriko 31.96 

Space" Stat/Protector — 25.95 

Sub Battle Simulator 24.95 

Arctic Fox 26.95 

RPV 24.95 

-20.95 
-42.95 
...24.95 
-24.95 
...38.95 



Crystal Castles 

Gridiron Football- 

ST Wars 

Hardball 

Psion Chess 



LOW Basic 

ST DATABASES 

DB Man 96.95 

Regerl Base 57.95 

Data Manager ST 48.95 

Zoomracks II 96.95 

StfiertMse Gem 94 . 95 



Loglstlx Jr . 64.95 

Logistix Sr.™. 89.95 



ABACUS 



Textpro 

Data tri eve-. 

Forth MT 

Palnlpro.- 



-32.95 
-32.95 



Assempro 39 . 95 

Powerplan ^49.95 

Abacus Books ^....Call 



ST GRAPHICS 

Degas ESte Call 

Easy Draw , ^48.95 

Cad 3-D 36.95 

Graphic Artist 124.95 

Palntworks 25.95 

1 St Cadd 3 1.95 

Aegis Animator 48.95 

Art I /Aegis Animator— 21.95 

Meochiome 34 . 95 

Stereo Cad 3-D 67.95 

DISKETTES 

Sony 3.5 SS/DD 

(10 PK) 13.95 

Sony 3.5 DS/DD 

(10 PK) 18.95 

Note: Buy Diskettes at ttlese 
low prices Mtien added to any 
other order. 



No surcharge for 
Master Card 



To Order Call Toll Free 

800-558-0003 



( ^ EST. 1»BZ 

^^om.pat(jtbLLLtu^ 



RO. Box 17882. MllwaukM. Wl 53217 

ORDER UNES OPEN 

Mon.-Fri. 11 a.m. - 7 p.m. Q.'^ © Sat. 12 pm. - 5 pm. CST 



TELEX NUMBER 9102406440 

lAMMMMOC - OMIiniTMIUWUat 



No surcharge for 
Visa 



For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-357-8181 



UnUtnlNu INrUKIVIAI lUNI Please specify system. For fasl delivery send cashier's check or money order. Personal and company checks allow 14 business days to clear. School P.O.'s welcome. G.O.D. charges 
are $3.00. In Continental L).S.A, include $3.00 tor sottware orders. 4% shipping for hardware, minimum $4.00. MasterCard and Visa orders please include card ^, expiration date and signature. Wl residents please include 5% sales lax. HI, AK, FPO. APO, Puerto 
Rico and Canadian orders, please add 5"^) shipping, minimum $5.00. All other foreign orders add 151^ shipping, minimum 510.00. All orders sfiipped outside the Continental U.S.A. are shipped first class insured U.S. mail. If foreign shipping charges exceed the 
minimum amount, you will tie charged Itie additional amount lo get your package to you quickly and safely. All goods are new and inciude factory warranty Due to our low prices all sales are final. Ail defective returns must have a return authorlotlon number. 
Please call (4141 357-81B1 to obtain an R.A, ^ or your return will not be accepted. Prices and availability subject to change without nalice. 



CIRCLE #104 ON READER SERVICE CARD 



EXTENDED HOURS 



MON. - FRI. 9A.M.-9P.M. CST 



SAT. 11A.M.-5P.M.CST 



ATARI 800/ XL/ XE COMPUTERS 



ATARI 130XE COMPUTER 

WITH 2 FREE PROGRAMS 



ATAR1 1050 DISK DRIVE 

WITH DOS 2.5 INCLUDED 



(OUR CHOICE) 

$134 



NX-10 PRINTER 

& 

SUPRA 1150 INTERFACE 

$259 



PANASONIC 10801 PRINTER 

& 

SUPRA 1150 INTERFACE 

$249 



$129 



ATAR1 130 XE PACKAGE 

INCLUDES 
■130 XE COMPUTER -ATARIWRITER + 

•1050 DISK DRIVE -MILLIPEDE 

*1027 PRINTER 'HOME FILING MANAGER 



$399 



■PAINT 
•DEFENDER 



AVATEX 1200 HC MODEM 

& 

P.R. CONNECTION 

WITH ATARI MODEM CABLE 



$179 



PANASONIC 10911 PRINTER 

& 

SUPRA 1150 INTERFACE 

$309 



MISCELLANEOUS 
HARDWARE 

P.R CONNECTION 62.95 SUPRA 1 1 50 INTERFACE 59.95 

US DOUBLER 49.9S 850 INTERFACE CALL 

ANIMATION STATION.. 49.96 GRAPHIC AT INTEFW=ACE 38.95 

ATARI XM 301 MODEM. ..CALL AVATEX 1200 HC MOOEM..t2S.OO 



PANASONIC 1092! PRINTER 

& 

SUPRA 1150 INTERFACE 



$379 



ACCESSORIES 



6 Way Surgo 

Protector 

Monitor CatJle 

Printer Stand 



Swlveimit Monitor 
Stand 



-19.95 
_..9.95 
_14.95 

_19.95 



Anti-Glare Screen 19.95 

leskvtood Disk 

Holders 19.95 

Disk Notctier 5.95 

Blank Disks Call 

Printer Ribbons Call 

Dust Covers Call 

Modem Cable 14.95 

Printer Cable 14.95 

1000 Sheet Printer 

Paper.. 



_19.95 



ELECTRONIC ARTS 

Age of Adventure 10.95 

Af dion 1 0.95 

Archon II 10.95 

Financial Cookbook 10.95 

Mail Order Monsters — 10.95 

Movie Maker 10.95 

Music Construction 10.95 

One on One 10.95 

Pinball Construction. — 10.95 
Racing Destruction — . — 10.95 

7 Cities ol Gold 1 0.95 

Super Boulder Dastl 10.95 

Touchdown Football 10.95 

Chessmaster 2000 25.95 

Chtckaumauga.^. 23.95 

_22.95 
_25.95 



SSI 

Carrier Force 37.95 

Wargame Constr. Set — 19.95 

Broadsides 24 . 95 

Computer Ambush 37.95 

Rghter Command 39.95 

Reld ol Rre 24.95 

Imperium Galac1icum™24.95 
W^arship 39.95 



Kampgruppe_ 



_37.95 
_32.95 



Battle of Antietam_ 

USAAF 37.95 

Phantasie 27.95 

Wizard's Crown 27.95 

Gettyburg-. 



Lords of Conquest... 
Ogre._ 



Panzer Grenider„ 

Ret>ei Charge 

Batllecruiser 



._39.95 
.._24.95 
_-32.95 
_39.95 



XLENT SOFTWARE 

Megafont II 16.95 

Xlent Word Processof_18.95 

Page Designer 18.95 

Mega filer 18.95 

Picture Disk 14.95 

PS Interface 18.95 

Rubber Stamp 18.95 

Typesetter.. 21 .95 



BRODERBUND 

Karateka 19.95 



Rommei/Toburk- 

Starfleet 1 

Ultima 1 

Ultima III 

Ultima IV 



ACTIVISION 

Cross Country Race 1 1 .95 

Hacker 11.95 

Mlndshadow 1 6.95 

Music Studio _22.95 

Ghostbusters 1 1 .95 



JOYSTICKS 

(NOTE: Prices good when 
with any other purcfiase) 

Wico Super 3-Way 19.95 

Unite Joystick , 5.95 

Starfjghter 8,95 

Tac3 10.95 

Silk Stick . 7.95 

Epyx 500XJ 12.95 

MICROPROSE 

silent Service 22.95 

F-15 Strike Eagle 22.95 

Decision in Desert 25.95 

Kennedy Approach 16.95 

Crusade in Europe 25.95 

Conflict in Vietnam 25.95 

TopGuwer. 16.95 

OPTIMIZED SYSTEMS 

Basic Xe ^44.95 

Action 44.95 

Mac 65 XI . 44.95 

Basic XL 34.95 

All Tool Kits 19.95 



DATASOFT 

Altemate 

Reality/City 19.95 

All Reality/Dungeon 24.95 

Gunsllnger 18.95 



Print Shop 28.95 

Bank Street Wrlter..._32.95 
GrapNc Lib 1,2.or 3.-16.95 
Print Shop Compan 22.95 



Video Title Shop 

221 Baker Street.. 

Ttie Mercenary 

Theatre Europe. „ 



_.21.95 
_.1B.95 
_18.95 
_.21.95 



Data Dlsk/Mercenary.._1 1.95 



WE CARRY 10Q'S OF 
PROGRAMS FOR THE 8 BIT 
ATARI COMPUTERS. IF YOU 
DON'T SEE IT, 

CALL 



MISCELLANEOUS 

Right Simulator 2 33.95 Print Driver Const. 

Universe 57.95 Set ____16.95 

Strip Poker. 21.95 TAC 25.95 

Micro League Jupiter Mission 1999-32.95 

Baseball 25.95 Blue Max 2001 _19.95 

Harcout/Srace SAT™_59.95 Championship 

General Mgr. MLB.._._25.95 Lodenjnner 19.95 

Fight Night. . 18.95 Home Accotntant 30.95 

Hardball 18.95 Apshai Trilogy 14.95 

Triple Pak .- 14.95 Summer Games 14,95 

Leader Board-— 24.95 World Karate 

Tourn DisWLeader Championship 19.95 

Bd. 14.95 RTIimeSCart 54.95 

Executive Disk/Leader Halley's Project 10.95 

Bd 1 4.95 Ma5tenypo__ 25 . 95 

Tenth Frame 27,95 Word Attack 32.95 

Infiltrator,,— 19.95 Math Blaster 32.95 

BopW Wrestle 19,95 Spell It 32,95 

SuperHuey, .—.16.95 DLM TeacNng CAU 

Home Planetarium .27,95 Spinnaker -. .CAU 

Atariwriter Plus 29,95 Hardball —18.95 

MLB Boxcoro/Slat 16.95 AceOfAcei. 18,95 

SPYVSSPY1&2 10.95 Ultima 2.— -28.95 

Vkieo Vegas -. 20.95 Mrca Mach II 20.95 

Blazing Paddles _22.95 The Pawn 25.95 

Trallblazer —19.95 

INFOCOM SYNAPSE 

Hitchiker 17.95 Syncalc 32.95 

Wishbringer 1 1 .95 Synlile 32.95 

Ballyhoo 25,95 Loderurmer's Rescue 19,95 

MoonmisL — 22.95 Syncalc Templates 16.95 

Leather Goddess 22.95 Essex ^— — 25,95 

Hollywood Hijinx 22.95 Mindwheel 25.95 

Zork Trilogy 39.95 Brimstone 25.95 



No surcharge for 
Master Card 



To Order Call Toll Free 



800-558-0003 



y^ EST. 1982 y« / • / . - 

P,0, BOX 17882, Milwaukee, Wl 53217 

ORDER LINES OPEN 

Mon,-Frl. 9a,m,-9p,m. CST Sat, 11a,m.-5p,m. CST 

TELEX NUMBER 9102406440 

(ANSERBACK • COMPUT MILW UQ) 



No surcharge for 
Visa 



For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-357-8181 
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n Reader comment 



continued from page 8 



Plaudits for MICROMOD-TXirbobase. 

I am currently a subscriber to ANALOG 
Computing, and liave been since June of 
1985. I enjoy the publication, as evidenc- 
ed by my continued subscription. 

My purpose for this letter is threefold: 
(1) to give plaudits to MICROMOD Tur- 
bobase software; (2) to attest to the "busi- 
ness" power of the Atari 130XE; and (3) 
to encourage "support" of 8-bits. 

Atari suffers the reputation of a "toy," 
something for the kids to play with. Un- 
fortunately, in my area, Atari is doing very 
little to change this image — much to the 
chagrin of the Huntsville Atari Users 
Group (Ji.A.U.G.) Though there are sever- 
al excellent business applications on the 
market. Atari doesn't appear to capitalize 
on their existence. 

I have many of them in my own library, 
including SynCalc, SynTrend, SynStock, 
VisiCalc, Networth, Peachtrees (G/L, AR, 
AP), Family Finances and, last but not 
least, MICROMOD Turbobase. 

I believe I can truthfully say I am profi- 
cient in all of them. I have been looking 
for the one "system" that would be capa- 
ble of "doing it all" — a system that could 
be used by a small business. The rational 
is that most "Mom and Pop" businesses 
cannot afford the $10,000-plus price tag 
for one of the "big guys" — or even for a 
clone of one. Well, I believe I now have 
just such a system in Turbobase. 

My first experience with MICROMOD 
goes back to September 1986, with my 
purchase of MICROMOD 3.0. I was im- 
mediately impressed with the program, 
and equally disappointed with the man- 
ual and bugs. Although the manual was 
well written, I felt it was not written for 
the general public — i.e., it assumed too 
much knowledge on the part of the user. 

I contacted Mr. Steve Bolduc and ex- 
pressed my opinions to him. He was most 
gracious, receptive and supportive. My 
comments must have not been unique, for, 
shortly thereafter, Mr Bolduc removed 
MOD 3.0 from the market. 

In February of 1987, I received a copy 
of the MICROMOD-Turbobase Quiclc 
Course and Cookbook, and a demo disk 
of Turbobase. Mr. Bolduc listened very 
well indeed. QCC does all he claims, and 
more. It's not a manual per se, but a well 
written "walk-through" a new user could 
utilize to set up his books without even 
looking at the manual. 

On April 9th, I got my copy of MICRO- 
MOD-Turbobase with the new manual. 
Outstanding.' Mr. Bolduc ef al. have out- 
done the industry, even the "big guys." 



The program does all he claims, and is 
more than adequate for a small to medi- 
um business application, depending, of 
course, on the type of business. It's cer- 
tainly suitable for a small store or contrac- 
tor, with a limited inventory. (I am now 
using the system to keep the books for a 
100-unit condominium.) 

The manual is something else again — 
terrific! It is extremely well written, if at 
times a little verbose. Anyone can under- 
stand the instructions. 

I feel Mr. Bolduc has gone beyond the 
"tjTDical" manual, in that he not only gives 
examples of applications, but fully ex- 
plains the logic behind the method, to al- 
low the user to "design" specific applica- 
tions. This is something not readily avail- 
able in "off the shelf" programs. 

In the support area, MICROMOD has 
no equal. I won't mention those who've 
been nonsupportive. However, I will say, 
on the few occasions I contacted Mr. Bol- 
duc, his response was Immediate and pos- 
itive (no excuses). MICROMOD does live 
up to its claim of full product support. 

J.J. Moniz, Treasurer 

Huntsville Atari Users Group (AL) 

For in/ormation on MICROMOD-Turbo- 
base, you can contact MicToMiser Soft- 
ware, 1635-A Holden Ave., Orlando, FL 
32809 — (305) 857-6014. And watch for 
a review in these pages. — Ed. 

Keyboard contacts. 

I purchased a 130XE last October When 
reading the issue 52 (March 1987) Data- 
base Delphi regarding its keyboard, I be- 
came very concerned. The term graphite 
contacts stirred up unpleasant memories 
of the Atari 5200 joysticks. 

The fire buttons, keypad and START/ 
PAUSE/RESET buttons use small, round, 
black pieces of conductive material, 
which a technician told me were "graph- 
ite contacts." Used regularly, they func- 
tion properly for several months, then 
gradually lose their conductivity. Clean- 
ing sometimes — but not always — helps. 
I repaired four of the sticks for a neigh- 
bor last year (her grandchildren abuse the 
machine), by gluing pieces of aluminum- 
sensing foil over each and every contact. 
It's a slow, tedious fix (especially when 
your eyesight balks at anything close up), 
but seems to work. 

The Database Delphi cormnents ("the 
bottom of the key is made of a U-shaped 
piece of conductive rubber that bridges 
two pads on the circuit board to make a 
key closure") brought visions of a 130XE 
keyboard full of "5200-type" contacts. 



So, throwing caution to the wind, I dis- 
assembled my 130XE (and, later, a 600XL) 
keyboard. What I discovered was a great 
relief. Either I misunderstood the com- 
ments in ANALOG, or Atari has recog- 
nized and corrected the problem. 

Each key (both console and keyboard) 
contained a flexible rubber insert with no 
conductive coating. The method of key 
closure, in both the 600XL and 130XE, is 
essentially similar. There is a folded-over 
plastic "circuit board" with foil patterns 
on each side. An insulator sheet of plas- 
tic (with holes to allow conductivity — 
one for each key) lies in between. Depres- 
sing a key forces foil patterns on the top 
and bottom "boards" to make contact, 
resulting in a key closure. 

The only problem I can foresee is tar- 
nishing (or possible damage?) of the cir- 
cuit board foils. I did notice contacts on 
the 130XE's connector cable were tarnish- 
ed, upon removal from the mother board. 
To forestall any future problems, I cleaned 
them with a Freon TF/alcohol solution. 

I don't know if all 130XE keyboards are 
identical to this one, but feel relieved. 
This incident also helped me realize that 
keyboard disassembly, should it become 
necessary, isn't as tough as I'd imagined 
— only potentially hazardous to that flex- 
ible printed circuit board. 

Bill Hicks 

Newport News, VA 

Matthew J.W. RatcUff, our Database 
Delphi oracle, tells us that there are sever- 
al variations on the Atari's keyboards. His 
local dealer has seen three types, which 
vary depending upon their origin of manu- 
facture (Taiwan, Korea, etc.) 

One more thing — remember Matt's Rule 
of Computing; if it ain't broke, don't fix 
it. You could get into very hot water — and 
invalidate your warranty. — Ed. 

Updates. 

Our apologies for any confusion the re- 
cent review (issue 53) of The Learning 
Phone may have caused. It seems that 
Plato discontinued their Homelink service 
shortly before we went to press, so there's 
really no point in running out to get a Pla- 
to access cartridge. If you own one, you'll 
be pleased to know that Atari will swap 
it for another of your choice. 

Apologies also to Matthew RatcUff for 
omitting his name in issue 54's table of 
contents, for his review of Super 3D Plot- 
ter. [Greg: if you're trying to remember 
writing the review, forget it.) — Ed. 
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Part 1 —A survival guide 
for the novice programmer. 



by Clayton Walniim 



If only I had known . . . 

When I think of all the hours I wasted back in the "good 
old days," trying to recover lost work or tracking down pro- 
gram bugs that were, because of my inexperience at the 
time, harder to find than a squadron of black cats at mid- 
night, I feel as if a huge portion of my life has been squan- 
dered. Of course, that time wasn't really wasted: every mis- 
take was a lesson learned, every stumble yielded a new 
piece of wisdom to add to my ever-enlarging repertoire of 
programming skills. But I still can't get over the feeling that 
if I had only known a few simple rules, if only someone had 
told me. . . 

If you're new to programming — or even if you've been 
at it for a year or so — you're undoubtedly becoming famil- 
iar with a certain mental dizziness caused by walking in 
intellectual circles. You're spending a lot of time backtrack- 
ing, redoing things that could have been done right the first 
time around, if — at the risk of repeating myself — only you 
had known. 

Well, today's your lucky day. Mark it on your calendar! 
I'm going to let you in on some techniques that'll make your 
programming efforts less frustrating, maybe even enjoyable. 
Don't scoff. Your mental health is valuable. Following good 
advice can keep you from a visit to that infamous rest home 
for retired programmers, the Institute for the Incredibly 
Nervous. 

Endless saves. 

First of all, when you're programming or doing anything 
on a computer, save your work jrequently. And don't just 
sit there humoring me — don't nod your head and grin and 
give me that l-must-have-heard-that-one-a-million-times 
look. I didn't put that in italics because I think slanted let- 
tering is hip. Ignore this piece of advice, and you might as 



well sign the Institute's guest list right now [and bring a 
limch and a change of socks, because you're going to be 
there for a while). 

When you're working on a program, you should save your 
work at least every half an hour. If you don't, you will get 
burned. Even experienced programmers forget, and that's 
when the demon bites. 

You see, there's this little guy with horns, a pointed tail 
and a severe skin problem, who watches over the shoulders 
of all laboring programmers. At the exact moment this vis- 
itor from the nether realms sees that you've made some cru- 
cial, unsaved changes, he lures some other creature (usually 
a cat or a small child) over to the plug, then stands back 
to watch the fun. 

Don't believe me? Okay, don't save yovn work. You'll see. 

The demon has other methods, too. He likes to point 
POKE commands to your computer's operating system or 
change the address of a USR call, so your computer will 
do its famous Yale trick. (Lock up. Get it?) I know all this 
is true, because I've found those very mistakes in my pro- 
grams, and I never make mistakes like that. 

Take it from me. If you're not willing to spend a little time 
saving your work, don't even bother starting on your next 
program. You'll never finish it. The demon bites. 

Endless versions (well, a few, anyway). 

Not only should you save your work frequently, but you 
should retain older versions of your program, rather than 
writing over them with new ones. One good way to do this 
is use a version number as the file's extension. For instance, 
MYPROG.VOl would be the first version of MYPROG. Af- 
ter making some changes, the program would then be saved 
as MYPROG.V02, and so on. 

Don't trust me on this one either? Okay, but you'd be sur- 
prised how a few changes can make the run of an almost 
finished program look like an excursion into the Twilight 
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Zone. Many times, finding these problems can be so tough 
it's easier to give it up and try again. That's when you're 
going to wish you had the previous version lying around. 

On many larger computer systems, handling version num- 
bers is built in. Also, you may have used word processors 
on your Atari that will automatically preserve an older file 
by changing its extension to .BAK (for backup) before sav- 
ing the current version. You can add an "auto-backup" capa- 
bility to DOS 2.0 by using Gary Domrow's excellent DOS 
Mods from issue 39. This modification will preserve as 
many old versions of a program as you like, and will auto- 
matically load the most current version when you're ready 
to get back to work. It saves the programmer from having 
to remember the most recent version number, making the 
entire process painless. I highly recommend it. 
Tape vs. disk. 

Some of you aren't going to take kindly to this, but it has 
to be said . If you want to be a programmer, get rid of that 
tape machine and get a disk drive. Cassettes are about as 
reliable as Charles Manson. If I had a nickel for every pro- 
gram I lost to the hazards of those accursed ribbons of iron 
filings, I'd be in Hawaii right now, sipping Pina Coladas on 
the beach. You just can't trust tapes! Even if you save the 
darn program out three times, you're not safe. Best I can 
figure is that the demon uses cassette tape for dental floss. 

There's also the matter of speed. If you're going to save 
your work often (you are, right?) , and you're stuck with a 
tape system, you can spend a lot of time staring at the 
screen, listening to an endless stream of data stampeding 
from your computer to an instrument that would serve you 
better as a bookend or a doorstop. That high whining sound 
makes people grit their teeth — but it'll kiJJ dogs. If your pro- 
gram is large, you can expect to listen to the howling of the 
poor, dying beasts for up to twenty minutes. 
Line numbering. 

Most BASIC programming guides show programs num- 
bered in intervals of 10. That's great for a final version, but 
when you're developing a program, you're going to need 
more space between lines than that — unless you've got your 
program planned very thoroughly. 

When I start vi'ork on a new program, I usually number 
the lines in increments of 100. That is, the first line of my 
program will be 100, the second 200, and so on. If I later 
discover I have to insert a large block of code somewhere, 
I have plenty of room. There's nothing worse than manual- 
ly renumbering a program section because you need to ac- 
commodate an unexpected piece of code. Not only is it 
annoying, but it's dangerous. What if you have some refer- 
ences to those lines elsewhere in the program? You better 
get them all! 

Numbering by 100s solves a lot of problems, but it also 
creates one. Suppose the program becomes so large that the 
line numbers exceed the maximum of 32767? The only way 
out in this case is to renumber the entire program. But don't 
even think about doing it by hand! It's ridiculously meticu- 
lous and time consuming, and I guarantee if you try it, your 
program (unless it's very small) will never run again. There's 
no way you'll ever get all those GOTOs and GOSUBs 
changed properly. 



Nope, renumbering is a perfect job for your computer to 
perform on its own. There are many commercial and pub- 
lic domain programs that can handle this task (issue 27 
contains a program called Instant Renumberer that'll do the 
job). 

No BASIC programmer should be without a renumber- 
ing utility. No matter how large an increment you original- 
ly used for your numbering, you'll find the program closing 
in on you as you add more and more code between exist- 
ing lines. That's when you whip out your renumber utility 
and restore the numbering to your original increment. 

Once the program is complete, you can renumber it a fi- 
nal time, using a line increment of ten to give it that profes- 
sional, finished look. 

But, if you plan to use a renumberer, you must be aware 
of certain restrictions. Basically, you should avoid any in- 
direct line references — that is, any line that's referenced us- 
ing a variable. For instance: 

leoe GOTO LINE#18 
will leave any renumber utility scratching its head. As a 
general rule, you should avoid indirect line references (ex- 
cept one particular type I'll be mentioning later) , whether 
you plan to renumber or not. They cause more problems 
than they're worth. If you can't avoid it, and you do renum- 
ber the code, you'll have to recalculate all the references 
by hand (shudder). 

A REIUIarkable idea. 

As yom- programs emerge from their humble, one- or two- 
dozen-line beginnings to many-hundred-line masterpieces, 
finding specific sections of code will become difficult. For 
this reason, you should use REM statements prodigiously. 
Yes, I know they take up a lot of memory, but, in today's 
48K to 128K machines, that's usually not a problem. And 
if they do become a problem, you can always delete some 
of them later. 

When you're trying to read through a 10-page printout 
of a program, you can save huge amounts of time by hav- 
ing the major sections of your programs easily identifiable. 
This is one of the reasons why the good people who de- 
signed BASIC gave us REM statements. And don't just allo- 
cate one REM line for your "label"; use several. A single 
REM is like a popsicle stick in a forest — you'll never see 
it. Which of the following do you like? 

1000 REM SftUE GAME 

1810 OPEM ai,8,0,"GftME.DflT'" 

1028 ? ttl;SCORE:? ttl;LigES 

1038 CL05E ttl 



1888 REM KKKKKKKKKKKKXKKKXKKKKX 
1818 REM » SftUE GftME » 
1828 REM KKXXKXKKKKKXKXKKKKKKKK 
1830 OPEN «l,8,8,"l>:GftME.DftT" 
1848 ? «l;5C0RE!? ttl;LIUE5 
1858 CL05E ttl 

Remember, you can always tighten up your program later 
by removing the REMs, but while you're working, it's a great 
boon to be able to find code segments fast. Unless you're 
running out of memory, I'd even leave them in the finished 
program. You never know when you or somebody else might 
want to do an enhancement. 
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The house that Jack built. 

Of course, marking off sections of code with REM state- 
ments only works well if you impose some sort of struc- 
ture on your program. When Jack put up his house, he 
decided liow many rooms he wanted before he bought the 
lumber and nails. He also decided what kind of rooms 
there'd be: bedroom, kitchen, living room. 

When you first begin to think about a programming pro- 
ject, the thought of all those himdreds of program lines is 
intimidating, to say the least. Worse than intimidating, it's 
confusing. It's one of those cases where you can't see the 
forest because of the trees (I must have forests on the brain 
today). 

Think of each program as a series of general steps, and 
worry about the details later. Outline on paper the steps you 
must take to complete your program. 

All programs contain three general steps: 

I. INITIALIZATION 

II. MAIN PROGRAM 

III. END 

Each of these steps can, in turn, be broken up further, 
and may end up looking something like this: 

I. INITIALIZATION 

A. DRAW TITLE SCREEN 

B. DIM AND INITIALIZE VARIABLES 

C. REDEFINE CHARACTER SET 
0. DRAW MAIN SCREEN 

II. MAIN PROGRAM 

A. GET PLAYER'S INPUT 

B. SEPARATE VERB AND NOUN 

C. PERFORM COMMAND 

III. END 

A. DRAW ENDING SCREEN 

B. SAVE GAME VARIABLES IF NECESSARY 

C. CLEAR SCREEN 

The above is a general outline for a text adventure game. 

Each of the new steps shown can be reduced to even 
greater detail. But the point is: you don't have to worry about 
the whole project at once. And you don't necessarily have 
to code the program in the order shown in the outline. For 
example, you can go ahead and do the dimensioning and 
initialization of the variables before you design the title 
screen. 

Nothing is cast in stone. You won't be through with each 
step until you've completed the program. For instance, as 
you get into the game outlined above, you'll inevitably add 
more variables, which means, of course, they must be in- 
itialized. That means a quick step back to the initialization 
step. Each section of the program will evolve, but at least 
you'll be focusing on one thing at a time. If you've used REM 
statements as I've suggested, it'll only take a second to find 
a program section that requires modification. 

The point here is to pick one element of the program and 
work on it mitil it's as complete as possible, then move on 
to something else. Changes in one section will inevitably 
lead to changes in another That's okay. Make the required 
changes, then turn your attention back to the task at hand. 

Sensible monikers. 

When you're writing your program, do everything pos- 
sible to make the process easy on yourself. A great way to 
make your program readable and easy to follow is to use 



variable names that give some clue to the function they're 
serving. For instance, which of the following is clearest to 



your 



1808 fl=PKCi+R)AM 

or 



1808 flMOUMT=PRIMCIPLE»Cl+RATEJApERIODS 

This is the formula for calculating your bank balance after 
a given period of time, including compounded interest. The 
first version is okay, since at least we used variable names 
that hinted at what they were. But the second version is in- 
stantly readable, and, since the variable names are longer, 
there's less chance of accidentally using the same one twice. 
There are only twenty-six possibilities if you want to stick 
to single-letter names (I arrived at that figure only after much 
thought and deliberation). You'll need more variables than 
that for a large program. 

Another type of moniker. 

Giving major program sections "labels" is another way 
you can make your programs more readable — and thus eas- 
ier to debug. The statement GOSUB SOUNDl means more 
to you as the programmer than does GOSUB WOO. 

Using this technique can save you endless hours of trac- 
ing through program listings. When you're trying to track 
down a problem and you encounter GOSUB 1000, you're 
going to have to find Line 1000 and figure out what that 
section of code is doing — unless you have a great memory. 
By using GOSUB SOUNDl, you know immediately what 
that subroutine does, and, assuming the problem doesn't 
lie in that section of code, you can move along to the next 
statement. 

Of course, just like every programming technique, this 
leads to new problems. For one, if the problem you're try- 
ing to track down is in the section of code labeled SOUNDl , 
you're going to have to find out what line number the label 
represents. This isn't too tough if you initialize all the labels 
on the same program line; you can just look it up. What 
I usually do when employing this technique is keep each 
label and its associated value on a piece of paper for quick 
reference. 

By far the worst problem, though, is that you're using in- 
direct line references, and you know what that means, right? 
Your renumber utility is going to throw a tantrum. There's 
a way around this problem: make sure each section of code 
referenced by a label is easily identifiable by REM state- 
ments, as I described above. Then, when you renumber the 
program, ignore the renumberer's complaints (we may hope 
that your renumber utility will continue renumbering even 
when there are indirect references in the code; most of them 
grumble a bit, but then go on their way). 

Once the program's been renumbered, list it to the screen 
and make note of the new line numbers for each labeled 
subroutine. Then bring up the line containing the labels' 
initialization and change them to their new values. Presto! 
All indirect references within the program have been re- 
solved. 

Need an example? Look at this program segment: 

1808 REM ICKKKMMKXXKMKMKKMKKMlOtM 
1100 REM * SAVE GAME * 

1280 REM lOCKKXKMKKKKKKKKMKMKXKK 
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1368 OPEN ttl,8,e,"D:G0NE.DflT" 



2660 REN KKKKKKXKKMMKKKXMMKMKK 

2100 REM » LOAD GAME » 

2200 REM KKKKICICKKKKKKKKMICKKMKK 

2300 OPEN »2,4f0f "OrGAME.DAT" 



5000 SAUEGAME=13e0:L0ADGAME=2300 

Now, let's say we renumber the program, and it comes out 
looking like this: 

110 REM KKKKXMKKKKKMKKKKKKHKICII 
120 REM » SAUE GAME » 
130 REM KKKKKKKMKKKKMKKXXKKKMM 
140 OPEN ttl,8,0,"D:GAME.DAT" 



Just find the hne that contains the initialization of the labels 
(in this case. Line 510) and change the values to the new 
line numbers: 

510 3AUEGAME=140:L0ADGflME=240 

Now all references in the program wll be correct. 

Till next time. 

This concludes our first excursion into survival techniques 
for the BASIC programmer. Next month, we'll look at many 
more ways to keep those guys in the white coats from bang- 
ing on your door. With any luck, we'll put the Institute right 
out of business. See you then. H 



210 REM KMMIIKKKMICKKKMMKICKKKICK 

220 REM * LOAD GAME * 

230 REM KKKKKKKKKKKKKKMKKMKKK 

240 OPEN »2,4i0i"I>: GAME. DAT" 



510 5AUEGANE=1300:L0ADGAME=2300 



THE LOWEST 
PRICES 



THE BEST 
SERVICE 



PHONE LINES 
OPEN 



10-6 E.S.T. 
M-F 



ELECTRONIC ONE* 

CALL r6I4J 864-9994 • P.O. Box 13428 • COLUMBUS. OHIO 43213 



HARDWARE 

ATARI 800XL 69.99 

ATARI 65XE 89.99 

ATARI 130XE 138.00 

ATARI 1 050 DISK DRI VE . . 1 38.00 

ATAR1 1027 PRINTER 99.99 

ATARI XM801 PRINTER . . .179.99 
ATARI XM804 PRINTER . . .179.99 
ATARI XM DAISY WHEEL . . 1 79.99 

ASTRA (THE ONE) 249.99 

INDUS GT DISK DRIVE . . . .179.99 

HARDWARE ACCESSORIES 

ATARI XM301 MODEM 42.99 

SUPRA 300 MODEM 34.99 

TAIHAHO MODEM 

(300 BAUD) 32.99 

ATARI SX212 1200 

BAUD MODEM 76.99 

XETECINTERFACE 34.99 

MPP 1 150 INTERFACE 39.99 

MICROPRINT 29.99 

USDOUBLER .46.99 

US DOUBLER W/O DOS .... 26.99 

PRINTERS 

STARNXIO 199.99 

STARNP10 169,99 

STAR POWER TYPE 179.99 

FORTIS DM 13010 

(130 GPS) 199.99 

PANASONIC 10801 189.99 

PANASONIC 10911 259.99 



;i^ 



ATARI- 



8 BIT 

HARDWARE ACCESSORIES 

DISKETTES 

CENTECH COLOR 

S/SD/D/ 49t9a. 

BONUS S/SD/D 4.99 

BONUS D/SD/D 5.99 

TDK 3'/!" S/SD/D 11.99 

TDK 3V2" D/SD/D 14.99 

JOY STICKS 

ATARI LIKE 4.99 ea. 

ATARI 6.99 

QUICK SHOT 1 4.99 

QUICK SH0T2 6.99 

QUICK SH0T3 8.99 

EPYX500XJ 13.99 

BOSS 1 1 .99 

BAT 15.99 

KRAFT 8.99 

ACCESSORIES 
SURGE PROTECTORS 

PINK YELLOW BLUE 1 4.99 

DISK CASE (60) 7.99 

DISK CASE (120) 9.99 

DISKNOTCHER 3.99 

DISK CASE (10) 2.99 

MOUSE PAD 4.99 



JFUTARr 

^ I ^ 8-BIT 

SOFTWARE 

BALL BLAZER 7.99 

THE EIDOLON 7.99 

RESCUE FRACULAS 7.99 

KORONISRIFT 7.99 

STAR RAIDERS 1.99 

DEFENDER 1.99 

E.T 1.99 

QIX 2.99 

ATLANTIS 1.99 

CROSSFIRE 1.99 

BASKETBALL 8.99 

PITFALL 8.99 

PITBALLII 8.99 

HERO 8.99 

SARGONII 6.99 

RIVER RAID 8.99 

TIMEWISE 2.99 

HOME FILING MAN 2.99 

GYRUSS 4.99 

FROGGEH 4.99 

MILLIPEDE 7.99 

GALAXIAN 7.99 

STAR FOOTBALL 9.99 

STAR BASEBALL 9.99 

DONKEY KONG 8.99 

ATARI FOOTBALL 9.99 

PAINT 3.99 

Q-BERT 7.99 

POPEYE 7.99 



JIUTARI- 

^ I ^ B-BIT 

SOFTWARE 

TOUCHDOWN FOOTBALL . . 1 1 .99 

SAM 12.99 

WAR GAMES 11.99 

STAR RAIDERS II 12.99 

ARCHON 11.99 

ARCHONII 11.99 

ATARI WRITER 27.99 

ATARI WRITER PLUS 32.99 

HARDBALL 18.99 

FIGHT NIGHT 18.99 

TOP GUNNER 14.99 

PITFALL/DEMON 

ATTACK 9.99 

PHANTASIE 22.99 

GUNSLINGER 11.99 

MICRO LEAGUE 

BASEBALL 24.99 

SPY VS SPY 1 & 2 1 1 .99 

LEADER BOARD 24.99 

F15 19.99 

BLUEMAX2001 11.99 

SYNTREND 6.99 

SYNFILE 29.99 

SYNCALC 29.99 

MACRO ASSEMBLER 1 7.99 

ASSEMBLER EDITOR 17.99 

PROOFREADER 12.99 

ONE ON ONE 11.99 

CHESSMASTER2000 24.99 



M 



ATARI- 



ATARI 520ST 

BLACK & 

^7em 45999 

• MONITOR 

• DISK DRIVE 

• KEYBOARD 
520ST 

^s^?e"m 69999 

• COLOR MONITOR 299.99 

• BLK/WH MONITOR 129,99 

• KEYBOARD 

DISK DRIVE 399.99 

• SQL DISK DRIVE 129.99 

• DBL DISK DRIVE 199.99 

• 20 MEG 

HARD DRIVE 529.99 

• 1200 BAUD 

MODEM 79.99 

• 1040 COLOR 

SYSTEM 869.99 

• 1040 B/W 

SYSTEM 699.99 

CALL FOR 

SOFTWARE 

TITLES 



HOW TO ORDER: CASHIER CHECK. MONEY ORDER, MASTERCARD" OR VISA" (ADD 4% FOR CHARGE CARDS) ... NO PERSONAL CHECKS NO C O D 's SHIPPED 

U.P.S, . . . ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE, 

SHIPPING: ADD $3,00 ON ALL ORDERS UNDER $100,00 . , , ADD $5,00 ON ALL ORDERS OVER $100.00. ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS 

INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUDING A P O 

POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION , . , NO RETURNS UNLESS DEFECTIVE. ALL DEFECTIVES WILL BE EXCHANGED ... NO EXCEPTIONS. 

PLEASE SPECIFY CALL OR WRITE FOR FREE CATALOG 

CALL ELECTRONIC ONE r6I4J 864-9994 OR WRITE 



CIRCLE #105 ON READER SERVICE CARD 



PAGE 22/ JUNE 1987 



ANALOG COMPUTING 






48K Cassette or Disk 



UTILITY 





Variable 
Searcher 



Finds those variables fast 
for output to screen or printer. 

by Steven Anderson 

All BASIC programs use vai-iables — or at least 99 percent 
of them do— and checking through the program to find 
them, for any editing reason, can be tedious work. 

One of the secret powers of the Atari is its ability to use 
long variable names. Some programmers like to change vari- 
able names used in a program to longer, easier-to-understand 
names; other programmers want to make long names short- 
er. Variable Searcher can find and cross-reference all vari- 
ables in seconds, and output to eitlier the screen or a printer. 
It writes both the variable names and the line numbers in 
which each variable appears; even variables entered with- 
out line numbers are shown. 

Variable Searcher is an all machine language program 
entered by a BASIC loader program. It uses page 6 of mem- 
ory (0600-06FF hexadecimal, or 1536-1791 decimal). Here, 
it is free from BASIC and from the RESET key. 

To execute the Searcher, type in direct mode; X=USR 
(1536). To send output to a printer, enter POKE 203, 80 be- 
fore the USR. To redirect to the screen, enter POKE 203,69. 

The Searcher works by first finding the Variable Name 
Table. The starting address of this table is in locations 130 
and 131. To find the value with BASIC, type: PRINT PEEK 
f130) + 256*PEEKfl3]). 

The ending address is in locations 132 and 133. Once lo- 
cated, the Searcher will find and write each variable name, 
store its token number, then search through BASIC memo- 
ry for each token number. If it finds any matching token 
numbers, it then checks for a REM, DATA or PRINT before 
the token, because the data following REM, DATA or PRINT 
may have the same value as the token — but not as a vari- 
able. If there is no REM, DATA or PRINT, Searcher writes 
the line number where the variable was found. It continues 



this process mitil it reaches the end of the Variable Name 
Table, then returns to BASIC. 

It does not check for repeats while searching, so a line 
with a variable used more than once may appear each time 
the variable is found. 

All variables entered are stored in the Table, even those 
entered in direct mode — they will be output with no line 
numbers following them. 

Type in the BASIC loader program. This creates the ma- 
chine language for Searcher. Be extra careful on the data 
lines. Save a copy, then run the loader. Once the READY 
prompt appears, the machine language file is in place and 
ready to use. 

Test it on the loader to be sure it was entered correctly. 
To use Searcher on a different program, type NEW, then 
type or load the new program and use X=USR (1536) to in- 
stitute Searcher. 

If the BASIC program affects any memory between 1536 
and 1791, do not run the BASIC program until after using 
Variable Searcher. Changing this memory will crash the 
Searcher — and maybe the whole program. But, should this 
memory area be changed, you'll need to reload the loader 
program and run it, to fix the Searcher. 

If your program is long and has many variables, all the 
variables and lines may not fit on the screen without scroll- 
ing. You can pause the action with CTRL-1, and resume it 
by pressing CTRL-1 again. 

Variable Searcher automatically sets the left border mar- 
gin to 0. This will allow the output to be neat on the screen. 
Searcher, however, does not set the TABs, so altering them 
may cause the output to be messy. In such a case, use the 
default tab setting for best results. 

The Variable Searcher works in a way very similar to the 
EVAR command in the OSS BASIC XL and BASIC XE car- 
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IP COHPUTEI 


\ CREDTIOHS 


=TI 


YOUR flTfltl a-BIT SUPPORT CENTER | 


ACCESS 


KYAN 




Leaderboard Golf 


26 Kyan Pascal 


49 


Tournament Disk 


14 System Utilities 


34 


Triple Pack 


14 Atari Advance 


34 


ACCOLADE 


LANCE HAFFNER 




Hardball 


20 3 in 1 Football 


27 


Fight Night 


20 MICROLEAGUE 




ARTWORX 


Baseball 


26 


Bridge 4.0 


IG General Manager 


26 


compubrldge 


16 Team Player Disk 


14 


strip Poker 


20 MICROPROSE 




Female Disk 


14 Silent Service 


27 


ATARI 


F-IS Strike Eagle 


23 


Atariwriter Plus 


35 Kennedy Approach 


23 


Proofreader 


12 Conflict in Vietnam 


26 


Star Raiders II 


13 Crusade in Europe 


26 


Silent Butler 


19 Top Gunner 


17 


Planetarium 


17 MINDSCAPE 




BRODERBUND 


Bob 'N' Wrestling 


20 


Printshop 


29 OSS 




Prlntshop Companion 


26 Action 


47 


Printshop Graph. 


Action Tool Kit 


19 


Library 1,2,3 


17 Basic XL 


38 


Syncalc (130XE) 


33 Basic XL Tool Kit 


19 


Syn£lle+ 


33 Dos XL 


19 


Syncalc Template 


15 Basic XE 


47 


Syntrend 


25 Mac 65 


47 


DAT AS OFT 


Mac 65 Tool Kit 


19 


Alternate Reality 


18 SUBLOGIC 




Mind Pursuit 


12 Flight Simulator II 


37 


Mercenary 


20 Scenery-San Fran. 


15 


Never Ending Story 


12 Scenery-Japan 


15 


Crosscheck 


20 Scenery #1 thru 116 


15 


Theatre Europe 


22 SUPRA 




221 B Baker St. 


20 MPP 1150 


39 


Gunsllnger 


20 Microprint 


29 


FIREBIRD 


X-LENT 




Pawn 


29 Typesetter 


22 


Mach 2 


17 Rubber Stamp 


19 


HAPPY 


Page Designer 


19 


Happy Enhancement 


129 Megafont II 


17 




P.S. Interface 


19 


ICD 


First X-lent Word 






Processor 


19 


Printer Connection 39 "l"lature Golf + 


19 


U.S. Doubler w/o 






Spartados 


29 




U.S. Doubler w/ 
Spartados 


49 CALL 




Rambo X/L 


29 




Sparta Dos Con- 


FOR 




struction Set 


29 




R-Time 8 


49 HARDWARE 




P:R: Connection 


59 

PRICES 




To order call TOLL FREE 


■ 


1-800- 


KZ4.750i 


1 


ORDER LINE ONLY 


^H 1 


£5 P.O. BOX 493- 


DAYTON, OHIO 45459 tti 1 


For information, order inquiries, or for Ohio orders (513) 435-€8fl8 II 


Order Lines Open 9 am io9p.m Mon-Fn, 10 am to4 pm Sat. (Eastern Standard Time) MimmjmSiS 


pe. 1 


order COD (add $3 00) Please specify computer system Call loll tree number to verify prices and availability 


of product Puces and availal]ility are subtecl to change without notice We ship C D Id Continental U S 


addresses only" Please include 4% shipping on all Hardware orders (mm $4 00) Software and accessories add 


$3 00 shipping and handling m Continental U S Actual freight will be charged ouiside U S to include Canada. 


Alaska. Hawaii. Puerto Rico and APO Ohio residents add 6% sales tax Canadian orders 5% shipping, (Mm 


$5 00) All other foreign orders, please add t5% shipping, (Mm $10) For immediate delivery send cashier's 


check, money order or direct bank transfers 


Personal and company checks allow 3 weeks lo clear School || 


purchase orders welcome Due to our low prices, all sales are final NO CREDITS AH defective returns must 1 


have a return authorization number Please call (51 3) 435-6868 to obtain an RA# or your return will not be I 


accepted for replacemeni or repair 
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tridges. It works on any 8-bit Atari with or without DOS 
booted, and works all right with most versions of DOS, in- 
cluding DOS 2.0, DOS 2.5 and DOS 3. H 

Steven Anderson has studied advanced BASIC, machine 
language, Logo and Pascal. He bought his /irst computer, 
an 800XL, in 1984 — disregarding his school's strange deci- 
sion to stock Commodore 64s. He's interested in graphics 
and sound programs. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 

YM 100 REM » VARIABLE SEARCHER * 

CD 110 REM BY 5TEUEN ANDERSOH « 

FT 120 REM » TYPE X=U5RC15361 TO ACTIVATE 

5H 130 REM FOR ALL ATARI 8-BIT COMPUTERS 

XO 140 REM USES PAGE 6 OF MEMORY. 

JO 200 FOR 1=1536 TO 1791:READ DiPDKE I,D 

:NEXT I 
PU 205 POKE 203,69 
FU 207 POKE 204,58:P0KE Z05,88:PDKE 206,1 

55 
NT 210 END 
EB 1000 DATA 165,130,133,0,165,131,133,1, 

169,127,133,209,162,48,169,203 
DJ 1810 DATA 157,68,3,104,133,82,157,69,3 

,157,75,3,169,8,157,74 
UO 1020 DATA 3,169,3,157,66,3,32,86,228,1 

60,0,177,0,16,16,41 
IM 1030 DATA 127,32,93,6,32,91,6,230,209, 

32,111,6,32,91,6,32 
OL 1040 DATA 93,6,230,0,208,2,230,1,165,0 

,197,132,208,219,165,1 
IG 1050 DATA 197,133,208,213,169,12,141,1 

14,3,208,15,169,155,162,11,142 
EB 1060 DATA 114,3,162,0,142,72,3,142,73, 

3,162,48,76,86,228,165 
VM 1070 DATA 136,133,2,165,137,133,3,32,2 

44,6,133,207,32,244,6,133 
TO 1080 DATA 208,201,128,176,121,32,244,6 

,32,244,6,32,244,6,201,2 
AD 1090 DATA 176,9,32,244,6,201,155,208,2 

49,240,220,32,244,6,201,20 
KI 1100 DATA 240,230,201,27,240,226,201,2 

2,240,205,201,14,208,10,162,6 
KV 1110 DATA 32,244,6,202,208,250,240,227 

,201,15,208,6,32,244,6,170 
ZD 1120 DATA 208,238,197,209,208,213,165, 

207,133,212,165,208,133,213,32,170 
GZ 1130 DATA 217,32,230,216,160,255,132,1 

75,230,175,164,175,192,8,240,187 
HG 1140 DATA 177,243,72,41,127,32,93,6,10 

4,16,237,169,160,164,175,200 
SI 1150 DATA 145,243,208,228,160,0,177,2, 

230,2,208,2,230,3,96,0 
RD 1160 DATA 230,2,208,2,230,3,96,0 
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Window 
Graphics 


Use player-missile 

graphics for 

joystick-controlled 

windowing. 





by Howard Green 



Have your ever wished that your Atari had the capabih- 
ty to display only a small portion of a graphics screen at 
a time? Imagine having a joystick-controlled graphics win- 
dow which could be moved around the playfield to expose 
only the graphics directly "underneath" it. This technique 
is not only possible, but rather easy to implement in any 
BASIC program. If you know anything about player- missile 
graphics, you should have no problems adding Window 
Graphics to your own games and graphics displays. 

lyping it in. 

The best way to get started with Window Graphics is to 
type in the demo program shown in Listing 1, then run it. 
The program requires a joystick in port 1. This demonstra- 
tion should give you a better feel for what Window Graph- 
ics are and how they can be used. 

The program is intentionally imcomplicated. The demo 
allows only horizontal movement of the graphics window, 
but, with a little knowledge of player-missile graphics, ver- 
tical movement of the window is easily achieved. 

How it worlts. 

The secret to Window Graphics lies in location 623 of 
your computer's memory, otherwise knovra as the "Priori- 
ty Selection Register." This register allows you to select 
which screen objects will be "in front" of others. These pri- 
orities are normally selected by setting one of the first 4 
bits in this memory location. There's a different order of pri- 
ority for each of these 4 bits (see the table following). For 
example: by setting bit 0, you can instruct the computer 
to give priority to the players, the playfield and the back- 
ground, in that order. 

If we set more than one of these first 4 bits, we get some 
very interesting results. If location 623 is POKEd with the 



number 5 (4+1), both bits 3 and are set simultaneously. 
This causes what's known as a "priority conflict" to occur. 
Several conflicts occur in this case, but the one that the fol- 
low^ing demo program takes advantage of is the conflict 
which occurs between player and playfield register 0. 

Priority Table. 



BIT DECIMAL PRIORITY CAUSED 

1 PL 0-3, PF 0-3, BAK 

1 2 PL 0-1, PF 0-3, PL 2-3, BAK 

2 4 PF 0-3, PL 0-3, BAK 

3 8 PF 0-1, PL 0-3, PF 2-3, BAK 

PL=Player PF=Playfield BAK=Background 



When ANTIC receives a conflicting priority signal, it sim- 
ply displays the areas of overlap in black. So, in our demo, 
when player overlaps the word ANALOG, the previously 
hidden letters (playfield register 0) turn black. 

The theory behind why Window Graphics works is ad- 
mittedly a bit complicated, but you really don't need to fully 
understand the theory in order to create some impressive 
displays with this technique. All you need to do is follow 
these simple steps: 

(1) Create a display using color and set color to 
the same hue and luminance as the background . This 
can be done in text modes 1 and 2, as well as graphics 
modes 3, 5 and 7. 

(2). Set up and define the graphics for player in 
any shape you wish. This player will be yom' "Graph- 
ics Window." If you aren't familiar with player-missile 
graphics, consult previous ANALOG Computing arti- 
cles for more information. 

(3) By programming your game or display program 
to move player over your "hidden" display, you can 
cause the parts of the display directly underneath player 
to appear. 
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^ window Graphics continued 



(4) If you wish, you can use player 2 to frame your 

window as I did in the demo. 

It would take pages to completely explore the potential 
of Window Graphics. I'll leave some of that exploring up 
to you. 

There are many exciting uses for this technique, only a 
few of which are discussed in this article. If you're interest- 
ed in further experimentation with this effect, you might 
want to consult Mapping The Atari by Ian Chadwick for fur- 
ther information about the priority register. Try POKEing 
location 623 with other values and see what you can come 
up with. Good luck and have fun. I'm looking forward to 
seeing some spectacular results, fl 

Howard Green is an undergraduate student at Marquette 
University, where he's studying Civil Engineering. He plans 
to specialize in Construction Management and will soon be- 
gin work as a co-op student for Opus Corporation in Minn- 
eapolis. When he isn't programming, he uses the Atari to 
write reports for school. 



The two-letter checksum code preceding the Une 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor 11, 
in issue 47. 



LJ 

UH 
MI 
TF 
ZR 
YO 

cy 

MM 

CC 

%H 
NN 

1.0 

^0 

SC 
FP 
UL 
SC 
ZE 



Listing 1. 
BASIC listing. 

10 REM MIHDOH GRAPHICS DEMO 
20 REM BY HOWARD GREEN 
30 REM FOR ANALOG COMPUTING 
40 DIM HMC151 

50 GRAPHICS 2:P0KE 704,9:POKE 706,14:P 
OKE 710,130:P0KE 709,14:P0KE 752,1 
60 POKE 708,130:P0KE 712,130 
70 POSITION 4,1:? tt6;"A.N.A.L.0.G." 
80 POSITION 3,6:? S6j"window graphics" 
90 POSITION 4,7:? «6; "deMonstration" 
100 ? ■■ PRESS START TO RETURN TO BAS 
IC" 

110 A=PEEKC106J-8:POKE 54279, A 
120 START=256»A+512:P0KE 559, 46: POKE 5 
3277,3:P0KE 623,5 

130 FOR X=5TART+28 TO START+35 : POKE X, 
126:NEXT X 
140 START=START+256 

150 FOR X=START+19 TO START+36 : POKE X, 
255 : NEXT X 

16o'h=48:POKE 53256, 3:P0KE 53258,3 
170 FOR N=l TO 15:HMCN)=0:NEXT N 
180 HM(7)=l:HMCll)=-l 
190 REM MAIN MOUE ROUTINE 
200 5=5TICKt0J :H=H+HM(SJ 
210 IF H>175 THEN H=175 
220 IF H<48 THEN H=48 
230 POKE 53248, H:POKE 53250, H 
240 IF PEEKt53279J <>6 THEN 200 
250 POKE 53248,0: POKE 53250, : GRAPHICS 
0:END 



ULTIMATE 
STORAGE 

Here's the perfect way to organize your ANALOG 
Computing library— sturdy, custom-made binders 
and files in deep blue leatherette with embossed 
silver lettering. Silver labels are included to index 
by volume and year One binder or a box-style file 
is all you'll need to accommodate 12 issues (1 year) 
of ANALOG Computing— all the games, pro- 
grams, tutorials and utilities that you want handy. 




Tlie ANALOG Computing binder opens flat for 
easy reading and reference. They're economically 
priced at only $9.95 each— 3 binders for $27.95 
or 6 binders for $52.95. 

The ANALOG Computing file is attractive and 
compact, holding 12 issues for easy access. Files 
are available for only $7.95 each— 3 files for $21 .95 
or 6 files for $39.95. 

Add $1.00 per case/binder for postage and handling. 
Outside U.S., add $2.50 per case/binder — U.S. funds only. 



I enclose my check or money order in the amount 
of $ . 



Send me; 



ANALOG Computing files 
ANALOG Computing binders 



PLEASE PRINT. 



Name: _ 



Address: (No RO. Boxes) 

City: 

state: 



Zip Code: 



Send your order to: 

Jesse Jones Industries 

DEPT ACOM, 499 East Erie Ave., Philadelphia, PA 19134 
Call Toll Free 1-800-972-5858 - 7 days, 24 hours 

Charge orders only, minimum $15.00 
■!!*;■' PA residents, add 6% sales tax 

^"" Satisfaction guaranteed or money refunded. 
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Medium resolution 



ST UTILITY 



y/ 



Mouse Maker 

(version 3.5) 



Everything you wanted to know 
about your Si's mouse. 



by Saveen V. Reddy 



The mouse. No, not the fiorry one you see in pet stores, 
but the one hooked up to your ST. Indeed, it's quite useful 
— a lot faster than a joystick and easier to hold than a touch 
tablet. And you can even change the way it appears on- 
screen, with Mouse Maker. 

Make your own mouse cursor images, save or load them, 
and even save them in a form you can use from ST BASIC. 
You can build up a Ubrary of shapes to use in your programs. 
If you don't want to define your own shapes, this article will 
show you how to use the ones built into GEM. 

Setting up. 

Before you use this program, create a folder named CUR- 
SOR on the disk in drive A, then enter BASIC. Type in the 
SETINGUP.BAS program, save it and run it. You need only 
do this once. The program sets up a very important file used 
by Mouse Maker. This file will reside in the CURSOR fold- 
er, along with the data files created by Mouse Maker, so 
they don't clutter up the root directory. 

Typing it in. 

Mouse Maker should be typed exactly as it appears in 
the listing. However, near the beginning of the program, the 
variable OFF should temporarily be set to 0. It determines 
whether GEM is turned on or not. Once you have saved the 
program, run it to check for bugs. If there are any, make' 
sure you get them fixed. If ST BASIC tries to print an error 
message while GEM is turned off, you will have to reboot. 
Once the program works properly, change OFF to equal 1 
as printed in the listing. When you run Mouse Maker, you 
must load it from drive A. Mouse Maker works properly 
only in medium resolution. 



How to draw the cursor. 

First, select your color from the menu at the bottom right 
of the screen. The menu box labeled BACKGROVnT) is the 
color green (color index 3). The ones labeled BIJ^K and 
^N1^{\T^ are self explanatory. Just select the color you want 
to draw with, go to the grid, and press the left button. The 
background color isn't actually present in the display. I didn't 
allow other colors to be used for the mouse cursor images, 
because I wanted the images to be usable in all resolutions. 

For those with monochrome monitors. 

Mouse Maker was written using a color monitor. It does 
not work in monochrome. With a few adjustments, how- 
ever, it should work in high resolution. Most of the modifi- 
cations require the adjustment of Y-coordinates and use of 
different fill patterns, instead of color registers 2 and 3. It 
will require some degree of work on your part to do this. 

Functions. 
SAVE, LOAD, BASIC SAVE. 

The SAVE and LOAD functions permit you to save and 
load the cursor image files. You will not be asked for a file- 
name to save or load, but for a number These numbers cor- 
respond to the numbers listed by the DIR function. When 
using the SAVE function, you will also be asked for a file- 
name. 

The BASIC SAVE function saves the image in a BASIC 
program form w^hich you can merge with your own pro- 
grams. Before you select this function, you should set the 
action point of the mouse. You do this by pressing the right 
mouse button. If it is not set, it defaults to 0,0 (upper left 
corner] . You will be asked for a filename. Don't type in an 
extension — the extension .BAS vifill automatically be ad- 
ded. Then you'll be asked for the starting line number. The 
increment is preset to ten. When you merge the file into 
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When you want to talk Atari 



XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection $59.99 

Printer Connection 44.99 

Supra 

IVlicroprint 39.99 

1150 39.99 

1151 (1200 XL) 39.99 

Xetec 

Graphix Interface 39.99 

Atari 

850 Interface 109.00 

COMPUTERS 



ST HARDWARE 




\ 

1 t ■ 

Atari 130XE ^129 

65 XE 89.99 

800 XL 68.99 

800 XL Package (1050 Drive, 1025 Printer, 
Joystick & Diskettes) 329.00 

MEMORY 

Axlon 

32K Board 19.99 

48K Board Call 

128K RAM Disk Call 

MODEMS 

Atari 

SX212 300/1200 (ST) 99.99 

835 24.99 

XMM301 44.99 

Anchor 

VM520 300/1200 Direct Connect (ST)1 29.00 

Volksmodem 1200 99.99 

Supra 

1200 AT 139.00 

1200 ST 139.00 



1040 Monochrome t.'^tfx 
System *719 

Includes: 1040ST, 1 mb RAM with SVa" drive 
built-in, 192K ROM with TOS, Basic, power 
supply and monochrome monitor. 

1040 RGB/Color System 879.00 

520 Monochrome System (Includes: 520ST 
computer with modulator, disk drive, mouse, 
logo, Basic and monochrome monitor)call 

520 RGB/Color System 769.00 

SM124 Monochrome Monitor 159.00 

SM1224 Color Monitor 329.00 

1040 Computer (no monitor) 589.00 

Call on the new Atari: 520ST FM/PC com- 
patible/Laser Printer/Daisywheel. 



DRIVES 




Atari 354 4^oa 

SS/DD Disk Drive (ST) ^139 

Atari 

1050 SS/DD Drive (XL/XE) $139.00 

SHD204 20 Meg Hard Drive (ST)... 599.00 

AA314 DS/DD Disk (ST) 219.00 

Indus 

GT Disk Drive (XL/XE) 179.00 

Supra 

20 Meg Hard Drive (XL/XE) 679.00 

20 Meg Hard Drive (ST) 549.00 

30 Meg Hard Drive (ST) 759.00 



PRINTERS 



Atari 

1020 XL/XE $29.99 

1025 XL/XE 129.00 

XDM121 XL/XE 209.00 

XMM801 XL/XE 199.00 




XMM804 ST ^189 

Brotlier 

M-1109 100 cps (80 col.) 209.00 

Citizen 

MSP-10 (80 col.) 289.00 

Premier 35 cps Daisywheel 489.00 

C.ltoli 

Prowriter 1550P (132 col.) 249.00 

Prowriter 8510SP Call 

Epson 

LX86, (120 cps) 199.00 

FX86E, FX286E (240 cps) Call 

EX800, EX1000 Call 

LQ800, LQ1000 Call 

Jul<i 

5510 Color Dot 349.00 

6000 Letter Quality 189.00 

6100 10 cps Daisywheel 369.00 

NEC 

ELF360 20 cps 389.00 

3000 Series Spinwriter 35 cps 779.00 

Pinwriter 560-660-760 Call 

Okidata 

Okimate 20 129.00 

ML-182, ML-192, ML-193 Call 

ML-292, ML-293 Call 

Panasonic 

KX-1080i 120 cps 80 col 209.00 

KX-1091i 180 cps 132 col 299.00 

Star Micronics 

NX-10 120 cps 80 col 209.00 

NX-15 120 cps 132 col 379.00 

Toshiba 

P321 216 cps 24 pin 479.00 






COMPUTER MAIL ORDER 



you want to talk to us. 



XL/XE SOFTWARE 



Access 

Leaderboard Golf $25.99 

Executive Disk 14.99 

Accolade 

Fight Night 19.99 

Hardball 19.99 

Atari 

Various Titles from $3.49 

Batteries Included 

Paperclip w/Spellpack 37.99 

B-Graph 37.99 

Broderbund 

Printshop 26.99 

Graphics Library 1-2-3 (ea.) 16.99 

Cygnus 

Starfleet 1 32.99 

Datasoft 

221 Baker St 21.99 

Electronic Arts 

Touchdown Football 12.99 

Chessmaster 2000 29.99 

Epyx 

World Karate Championship 19.99 

Infocom 

Zork III 24.99 

Microprose 

Top Gunner 17.99 

F-15 Strike Eagle 21.99 

Origin Systems 

Ultima 4 36.99 

Roklyn 

GorfAA/izard of Wor/AT Deluxe 

Anti-Sub/Journey to Planet (ea.) 3.99 

Strategic Simulations 

Gemstone Warrior 12.99 

Sublogic 

Flight Simulator II 33.99 

X-Lent 

Typesetter 21.99 




ACCESSORIES 



Maxell 

MD1-M SS/DD 5V4" $8.49 

MD2-DM DS/DD 5V4" 9.49 

MF1-DDM SS/DD SVz" 12.49 

MF2-DDM DS/DD 3V2" 18.49 

Sony 

MD1D SS/DD 51/4" 7.99 

MD2D DS/DD 5Va" 9.49 

MFD-1DD SS/DD 3V2" 12.99 

MFD-2DD DS/DD 3V2" 19.99 

Allsop Disk Holders 

Disk File 60-51/4" 9.99 

Disk File 30-31/2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 

ICD (XL/XE) 

Sparta DOS Contruction Set 28.99 

US Doubler/Sparta DOS 48.99 

Real Time Clock 49.99 

Rambo XL 28.99 

Mulli I/O Board 256K 169.00 

Multi I/O Board 1 Meg 289.00 



ST SOFTWARE 



AtariWriter Plus 



$341 




Access 4:0 >i ' 

Leaderboard Golf ^24 



99 



Activision 

Music Studio 34.99 

Antic 

Cad 3-D 30.99 

Atari 

Star Raiders 19.99 

Batteries Included 

Degas Elite 48.99 

Thunder 25.99 

Cygnus 

Starfleet 1 35.99 



ST SOFTWARE 



Ditek 

STA Accounts $149.00 

Electronic Arts 

Chessmaster 2000 29.99 








$23 



99 



Epyx 

World Karate 

Championship 

Championship Wrestling 25.99 

Haba 

Habawriter 32.99 

Hippopotamus 

Hippo Backgammon 27.99 

Infocom 

Zork Trilogy 42.99 

Hitchhiker's Guide 29.99 

Michtron 

Major Motion 25.99 

Microprose 

Silent Service 23.99 

F-15 Strike Eagle 29.99 

Mindscape 

High Roller 34.99 

OSS 

Personal Pascal 46.99 

Paradox 

Wanderer (3-D) 25.99 

Polarware 

Crimson Crown 26.99 

Psygnosis 

Arena 25.99 

Sierra On Line 

Winnie The Pooh (Educ.) 18.99 

Sublogic 

Flight Simulator II 33.99 

Timeworks 

Wordwriter 49.99 

VIP 

Professional (GEM) 144.99 

X-Lent 

Typesetter 27.99 



In the U.S.A. and in Canada 

Call toll-free: 1-800-233-8950. 

Outside the U.S.A. call 717-327-9575 Telex 5106017898 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMC. 477 East Third Street, Dept. B707, Williamsport, PA 17701 

ALL [MAJOR CREDIT CARDS ACCEPTED. 

POLICY: Add 3% (minimum $7,00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to clear. 
=or faster delivery use your credit card or send cashier's check or bank money order. Pennsylvania residents add 6% sales tax. All prices are U.S.A. prices and are 
subject to change and all items are subject to availability. Defective software w/ill be replaced with the same item only. Hardware will be replaced or repaired at our discre- 
ion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. 
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ATARI HARDWARE 









$124.77 




1027 Prinlar 


$ 99.00 

$ 69.00 






65XE 

XMM 801 Printer 


$ 79.00 

$199.00 






Atari 850 Interface 

Data Casset XM11 


$124.90 
. ..$ 39.77 




c ATARI ST SYSTEMS 





520 ST Computer 
SF 354 Disk Drive 
SC 1224 Monitor 

Basic Logo First Word $747.77 

w/SF 314 Disic Drive add $1 12.00 



ATARI 128K 
Word Processing System 



130XE Computer 
1050 DisIc Drive 
1027 Primer 
Atariwriter Plus 
2 I 



Atari SM 801 Modem $ 37.77 

AVATEX 1200 Baud Modem. . .$ 99.00 



ST HARDWARE 



Atari 20 MB Hard Drive CAU 

SF 354 Drive $139.90 

SF 314 Drive $189.90 

SC 1224 Monitor $3J9.90 



EPSON PRINTERS 



LX. 80 wffraclor $259.90 

FX85 $379.90 

FX26e $504.90 



1040 COLOR 

O 



MONO SYSTEMS 



IN STOCK 
CALL FOR PRICING 



Hippovision 

Video Digitizer $119.00 

Ol^imate 10 Color Printer 

with Plug-n-Play $179.90 



Winner's 3%" DSDD $ 21.50 

SSDD SVi" $ 17.90 

DSDD 3%" $ 23.50 



ST SOFTWARE 



Personal PASCAL $ 44.97 

MCC PASCAL CALL 

Hippo 'C $ 44.97 

Macro Assembler $ 47.97 

Hippo RAM Disk $ 20.97 

Leader Board $ 23.77 

Habba View $ 44.97 

Habba Writer $ 44.97 

Habbacom $ 29.77 

Easy Draw $ 89.97 

D.E.G.A.S $ 23.77 

Rogue $ 23.77 

Winter Games S 23.77 

DB Master $ 29.77 

Prinlmaster $ 23.77 

Sundog $ 23.77 

Inlocom Call 

Mindshadow $ 29.77 

Hacker II $ 29.77 

Borrowed Time $ 29.77 

Winnie the Pooh $ 14.97 

The Pawn $ 26.97 

Kings Quest III $ 29.77 

Homework Helper $ 29.77 

Mark Williams 'C $107.97 

Lattice 'C Compiler $ 89.97 

Hippo Bisk Utilities $ 29.77 

Hippospell $ 23.77 

Degas Elite $ 47.77 

Silent Service $ 23.77 

Skylox $ 28.77 



PANASONIC PRINTERS 



KXP 1080 $199.00 

KXP 1091 $249.00 

KXP 3131 Daisy Wheel $279.00 

Panasonic Ribbons $ 8.77 

Parallel Printer Cable $ 18.70 



MICRO-PROSE 



Gunship $ 21.77 

Tpp Gunner $ 19.77 

F-15 SIrike Eagle $ 20.77 



KOALA TECHNOLOGIES 
CLOSEOUT 



Koala Pad $ 39.90 

Muppet Learning Keys $ 14.90 



BATTERIES INCLUDED 



Paperclip $ 31.77 

Paperclip w/Speilpack $ 37.77 



ORDERS ONLY 




1-800-233-6345 



^^^^^^^^^^^m^^ 226 Lincoln Road 

^ Miami Beach, 33139 

ICCViPLTEl 

y VICE 

J "SUPER SPECIALS" 

^oVO INFOCOM FOR ATARI ST 

^^ Vfto'l Cutthroats >^ <5,_ 

»"„ t Zork II Your Choice V-v X>y -^ 

sA^''t^ Zork III $0000 ><p/«b/ 



^A,S 



Cutthroats 
Zork I 
Zork II 
Zork I 
Planetfcll 
Spellbreaker 
Suspended 
Suspect 



Your Choice 



>X 






/P24 



3U 



(^c 












5/4 Cleaner 
$■777 






SYNAPSE 



Institute 
Lozer Racer 
Snapper . . 



Mastertype 
Cocjspiter Coach 
Ke^^jpard Coach . 



Costte Wolfensteln . 

Qiii 



$777 
$477 



*6" 

Codewriter *14" 

*6" 



Songwriter . , . 

Sort 

Anti Sub Patrol . 



77 



Astifipase 

Ch^;i 

Fro£^ 

Frog^^l Threedeep 

Gyruss T 

JamiKldnd 

Star Wars Arcade Game 

Super Cobra 



Montezuma's Revenge 

Run For The Money 

Asylum Disk & Car. 

Kaiv 

Encounter 



*4 



$577 



$777 



Computerized Cord File 
Decision Maker 
Pro Bowling 
Reverse II 



Addition with Carrying 

Adv. of Oswpid With Cassette 

Alphabit ^ade 

Astro Quotes 

Cash Register 

Do It Yourself Spelling 

Kross N Quotes 

Mini-Crossword J 

Mini-Crossword : i» 

Moon Base 10-rtK 4 

Music Box ,11 

Number Series 

Picture Blocks 

Preparing for Ihe SAT ,_ 

Preschool IQ Builder il . , , *4 



Star island 
Joy Extenders . 



^6 
«4 



n 



77 



Conversational German 

Conversational Italian 

Giggle's Rainbow 

Juggle's Rainbow 

States & Capitols 

Mortgage & Loon Analysis 

Statistics 

Video Easel 

Comp, for People-lO Books 

Fall '82 

820 Printer Ribbon *4 

826-80 Co. Printer Ribbon 

825-80 Col. Printer Paper 



77 



ORDERS ONLY 



1-800-331- 



CUSTOMER SERVICE OR IN FLORIDA (305) 538-1364 

FREE FREIGHT ON ALL ORDERS WITHIN CONTINENTAL U.S. OVER $100.00 

Orders under $100.00 add $4.00 shipping and handling. C.O.D. orders add $4.00. 
Prices reflect a 3% cash discount. A. P.O., F.P.O. orders add 6% shipping & handling. Postal orders shipped surface 
Add 6% for air shipment. Add 3% for VISA/MC. Florida residents add 5% sales tax. Personal checks allow 2 weeks for processing. 

Prices Subiect to Change Without Notice. 

ORDERS RECEIVED BEFORE 12:00 PM WILL BE SHIPPED SAME DAY. 
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// Mouse Maker continued 



your own program, you must give the begiim^ing line num- 
ber a LABEL and add a RETURN statement at the end. This 
way, it can be called whenever you need it. Remember, every 

time a FORM ALERT is called, the mouse is changed back 

to its original shape. So you must reset it every time you 
use a FORM__ALERT box. 

CLEAR IMAGE. 

This will clear the current mouse image data. 

DISK FUNCTIONS. 

This fimction will display a FORM_ALERT box with 
three choices: DIR, RENAME and CANCEL. 

Selecting DIR will print out the numbers and names of 
all mouse cursor image files on the disk in drive A. Files 
that don't exist are listed as " ******** ". 

By the way, this information doesn't come directly from 
the disk directory. Since there is no way to execute the DIR 
command from a BASIC program, the program simulates 
it by writing all data filenames into a disk file. When you 
run Mouse Maker, the "directory" file is loaded into a string 
array. Every time something is done to change the names, 
the altered contents of the string array are written back into 
the file. The string array is thus kept up to date. 

So, the DIR function works without accessing the disk 
drive, thus no wait is required for reading the directory. The 
RENAME option allows you to rename any file you choose. 
If you wish to delete a file, first rename it to " ******** " 
and then go to the desktop and delete it. 

CUSTOM FUNCTION. 

The box labeled CUSTOM FUNCTION has no use. It was 
provided in case you need an extra fxinction not available 
in the program. If you do activate it, you will see a FORM 
ALERT box. Selecting either of the two choices present- 
ed returns you back to the main program. 

If you need some sort of special function in the program 
(such as scrolling the cursor image) , then write a subrou- 
tine to perform the task, and then use CUSTOM FUNCTION 
to call it when needed. 

You needn't worry about the mouse's X,Y-coordinates; 

everything is already set up. Just change the FORM ALERT 

box to meet your specifications, and add whatever you 

want. Instructions on how to use the FORM ALERT boxes 

are given later in this article. 

Because this program turns GEM off for speed, you need 
to turn it on during the time you add something to it. This 
way, if an error occurs, you won't have to reboot. To auto- 
matically have GEM on at all times, look toward the begin- 
ning of the program for the variable OFF. Change it to the 
value 0. Once you've finished adding whatever you want- 
ed and have made it completely bug-proof, give it its previ- 
ous value of 1. 

The subroutines are listed in Table 1. 

FORM_ALERT. 

The FORM_ALERT box is a great boon to ST BASIC 
users. It allows you to have a professional looking, easy-to- 
use, foolproof way to get a response from the user. The call- 
ing of the subroutine is simple. 

(1) Set the string alrt$ to the proper form for the 
FORM_ALERT box. 

(2] If you want one of the choices to be selected by 



pressing RETURN, set the variable CHO to the one 
desired. A value of means none of them can be select- 
ed in such a fashion. 

(3) Call the subroutine ALERT 

(4) Check the value of CHOICE to see which one is 
selected. 

(5) Do wrhatever the choice indicates. 
Here is the form the alrt$ should take: 

alrt$="'[syMbol3 CMessageJ tchoicesl" 
The symbol is a number, 1 through 3. A value of 1 displays 
an exclamation point, 2 a question mark, 3 a stop sign. 
A quick look through the program will reveal that all the 

FORM ALERT messages have the format of: [symbol] 

[Imessage] [choices]. An extra "I" character is included just 
before the message text begins. I do this because I like to 
see some space between the top of the box and the text in- 
side it. 

Table 1. 



SUBROUTINE 




NAME 


FUNCTION 


BLK 


Draws a box in the main grid. The variables BX and BY 




determine its location. 


BC 


Sets the fill color for the box. The variable FC represents 




the fill color 


80X1 


Draws the low- and medium-resolution pixels in the 




image. 


DESTROY 


Erases all the text in the text area. 


HIDECURSOR 


Hides mouse cursor. 


SHOWCURSOR 


Shows mouse cursor. 


ALERT 


Displays a FORM_ALERT box. The siring alrt$ contains 




the message and symbols displayed {see below). 


MOUSE 


Returns the mouse X,Y-coordinates and indicates if a bul- 




ton is pressed. MSX.MSY are the X,Y-coordinates. MSB 




indicates the button status: 0=no button pressed, 1=left 




button pressed, 2=right button pressed. 



The message cannot have too many characters, or the pro- 
gram crashes. The number of characters you can fit into 
each line is resolution-dependent. To separate the message 
into different lines add a "I" character between the areas 
to be separated. 

You can have up to three different choices. Again, don't 
make them too long. The choices must be separated by the 
"I" character. Here's an example: 

alrtS="[13 [|5aMple Message: 
Cchoicellchoice23" 

Using the preset images. 

In order to use the preset mouse images, you must first 
call the GEMSTUFF subroutine in this program. It needs 
to be called only once. It sets up the variables used by the 
GEMSYS conunand. Next, poke GINTIN with the number 
of the image you want. The list of image numbers is below. 
Finally, use the statement GEMSYS(78), and a preset image 
will appear as your mouse cmrsor. 

The arrow (default) . 

1 Cursor. 

2 The bee image. 

3 A hand with the index finger extended. 

4 An open hand. 

5 Cross hair. 
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// Mouse Maker 



continued 



6 A very thick cross hair. 

7 An outhne of the cross hair. 

If you come up with anything great for the custom func- 
tion, tell me. If you use Delphi, just drop me a message. 
My username is RHODAN. I'll welcome any suggestions. H 

Saveen V. Reddy is a student at Man High School in Man, 
West Virginia. He owns a 1040ST and just began learning C. 

Listing 1. 
ST BASIC listing. 

10 ■ setting up 

28 open "0",ai,"a!S.cursor\naMes. f il" 

38 for i=l to 58 

48 print ttl,"* 

58 next i:close ttl 

68 end 



ST CHECKSUM DATA. 

fsee page 38] 

18 data 855, 557, 762, 268, 157, 724 



Listing 2. 
ST BASIC listing. 

10 ■ MOUSE MAKER ver . 3.5 

28 ' by Saveen u. Redd;; 

40 randoMize 8 :onn=d: of f=l 

50 on error goto 4848 

70 textx=l88:texty=l88:cho=l:poke syst 

ab+24,off 

80 diM cursorC32] , f ilenaMe$Cl,8) ,text$ 

Cl,40] , f n5 Cl, 121, fi lei ine$ (1,881 

90 din a$Cl,1881 , finane$tl21,alrt$C801 

, nanesf ile$C501 ,oIdc C4,3} 

130 gosub CHANGECDLDRS 

140 fullw 2:clearw 2:gosub MELC8ME:cle 

arw 2 

150 gosub HIDECURS8R 

160 gosub B8XDRAU 

170 color l,l,l,l,l:gosub SETUP 

180 textcDlor=l:gosub DIRECTION: gosub 

GETFILE 

220 MftlM: 

230 gosub SHOMCURSOR 

240 gosub READKEY 

250 goto MAIN 

298 READKEY: 

300 gosub MOUSE : bx=int t tMsx-lJ /16J :by= 

inttCMsy+lJ/8-3J 

310 if bx<8 then bx=8 

320 if by<0 then by=8 

330 if bx>15 then bX=15 

340 if by>15 then by=15 

350 if Msb=2 then ax=bx : ay=by 

360 if nsb=l and Cmsx>258 or Msy>150} 

then goto SELECTION 

370 if Msb=l then fc=q:gosub BC:gosub 

HIDECURSOR:gosub B0K:gDSUb SHOMCURSOR 

380 return 

420 SELECTION: 

430 if nsx>261 and Msy>141 and nsx<355 

and Msy<l5l then q=3 
440 if nsx>35e and Msy>141 and nsx<487 

and Msy<151 then q=l 
450 if Msx>408 and Msy>l41 and msx<510 

and Msy<15l then q=8 
460 if Msx>261 and nsy>l5l and nsx<3l2 

and Msy<l61 then gosub DATALOAD 



478 if Hsx>312 and Msy>151 and msx<359 

and Msy<161 then gosub DATASAUE 
488 if nsx>3e8 and nsy>151 and nsx<455 

and Hsy<161 then gosub DISKPUT 
498 if Hsx>456 and Msy>151 and nsx<510 

and nsy<161 then gosub QUITPROGRAM 
588 if nsx>261 and Nsy>161 and msx<378 

and Msy<17l then gosub INSTRUC 
510 if nsx>371 and nsy>161 and msx<510 

and nsy<17l then gosub FUNCTZONl 
520 if nsx>261 and nsy>171 and Hsx<370 

and nsy<l8l then gosub IMAGECLEAR 
538 if Msx>371 and Msy>171 and nsx<5ie 

and nsy<181 then gosub DISKFUNCTI8NS 
540 goto 388 
588 TRANSLATE: 

590 for ii=8 to 15:count=15:tot=0 
680 for i=8 to 15 
610 bx=i :by=ii :gosub LSCATE 
620 if uc=8 then tot=tot+C2>^countJ 
638 count=count-l 

648 next i :cursortii+lJ=tot:next ii 
658 for ii=0 to i5:count=15:tot=8 
668 for i=8 to 15 
678 bx=i :by=ii :gosub LOCATE 
688 if uc=l then tot=tot+ t2Acount) 
698 count=count-l 

788 next i :cursorCii+17)=tot:next ii 
710 return 
750 BC: 

760 poke contrl,25:poke contrl+2,0:pok 
e contrl+6,1 

778 poke intin, fc :vdisystl) :return 
810 BLK: 

820 poke contrl,ll:poke contrl+2,2: pok 
e contrl+6,8 

830 poke contPl+l8,l:poke ptsin, C16»bx 
)+l:poke ptsin+2, C8»by)+23 
840 poke ptsin+4, C16»bx)+15 spoke pt 
Sin+6, t8*byJ+29 
850 vdisysCl] :return 
898 MP: 
988 poke contrl,5:poke contrl+2,0:poke 

contrl+6,8 
910 poke contn+lO, 15: VdisysCl} :nx=pee 
kCintout) 

920 My=peektintout+2J :return 
968 LOCATE: 

978 poke contrl,185:poke contrl+2,l:po 
ke contrl+6,8 

988 poke ptsin, CieKbx}+3:poke ptsin+2, 
C8*by)+25 

998 VdisysCl] :uc=peekCintout+21 :return 
1836 MB: 

1848 poke contrl,124:pDke CDntrl+2,e:p 
oke contrl+6,0 

1858 VdisysCl) :but=peekCintout] :return 
1898 SBLK: 

1188 zc=c3: fc=zc :gosub BC 
1110 poke contrl,ll:poke contrl+2,2:po 
ke contrl+6,8 

1120 poke contrl+18,l:poke ptsin, Cl6»b 
X) +5 : poke ptsin+2, C8*by) +25 
1130 poke ptsin+4, Cl6*bx)+18 :poke p 
tSin+6, t8*by3+27 
1140 VdisysCl! :return 
1180 BOXDRAM: 
1190 fc=3:gosub BC 

1280 poke contrl,ll:poke contrl+2,2:po 
ke contrl+6,0 

1210 poke contrl+10,l:poke ptsin,l:pok 
e ptsin+2, 22 

1220 poke ptsin+4, cl6»153+18:poke ptsi 
n+6, C8«19J +36: VdisysCl) 
1230 gosub BOXING 
1240 return 
1280 DISKPUT: 
1290 restore 1340 
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1300 gosub FIXTEH 

1310 alrt$="C3: CiSaue cursor in Bft5IC 

f orH?3 [Yes I No] " : gosub ftLERT 

1320 if choice=2 then return 

1330 gosub HIDECUR50R 

1340 data Please wait while the cursor 

data, is being processed 
1350 data The data work is finished., P 
lease type in the filename you 
1360 data want to save cursor as. Do 
not, type the drive or extender. 
1370 data Enter begining line nunber. 
1400 for i=l to 2:read textSrgotoxy 32 
,i:? textS:next i:gosub HIDECUR50R 
1410 gosub TRflNSUflTE 

1420 for i=l to 2:gotoxy 32, i:? spaces 
C36) :next i 

1430 for i=l to 4:read textSigotoxy 32 
,i:? textSsnext ispoke systab+24,onn 
1440 gotoxy 32, i: line input filenaweS: 
poke systab+24,of f 
1450 f ilenaMe$=f ilenaHeS+".bas" 
1460 for i=l to Sigotoxy 32, i:? spaceS 
t36) :next i 

1470 read textS:gotoxy 32,1:? textSrpo 
ke systab+24,onn 

1480 gotoxy 32,2: input linenun:poke sy 
stab+24,off 

1490 for i=l to 5:gotDxy 32, i:? spaces 
C36) :next i 

1500 open "0",»1, filenaMeS:print ttl,st 
r${linenuM)+" '" 

1510 print »l,str${linenuM+ie)+" ■/"+s 
tring$C45, "-"J +■•/•■ 

1520 print »l,strStlinenu«+20)+" "':li 
nenun=linenun+30 
1538 for i=i to 32 step 4 
1540 f ilen$=strSClinenuM+C10*ti-lJ J1+" 

data "+strStcursorCiJ J 
1550 fiienS=filenS+","+strSccursorCi+l 
) ) +■', "+str5 {cursor Ci +2) J 
1560 filenS=filenS+","+strSCcursorCi+3 

J) 

1570 print »l,filenS 
1580 next i:ln=linenuM 

1590 print «l,strS(ln+320)+ 

1600 print ttl,strS(ln+330)+" poke cont 

rl,lll" 

1610 print »l,str$Cln+34eJ+" poke cont 

rl+2,0" 

1620 print ttl,strStln+350J+" poke cont 

rl+6,37" 

1630 print «l,str$tln+366J+" poke inti 

n,"+str$Cax)+": ' action point x" 

1640 print «l,strStln+370J+" poke inti 

n+2,"+str$Cay)+"! ' action point y" 

1650 print «l,strStln+380J+" poke inti 

n+4,1" 

1660 print ttl,strStln+398J+" poke inti 

n+6,0:' Mask color index" 

1670 print «l,strSCln+40O3+" poke inti 

n+8,l:' data color index" 

1680 print «l,strStln+4iaJ+" for i=18 

to 72 step 2 

1690 print «i,strStln+420J+" read zzt: 

poke intin+i,zzt:next i" 

1700 print ttl,strStln+438)+" vdisysClJ 

II 

1710 close ttl 

1720 gotoxy 32,0:? spaceSC36) : gosub 5H 

0MCUR50R 

1730 return 

1770 direction: 

1780 M0de=3: gosub MRITEMODE 

1798 tex=8: gosub TEXT: textx=C33»8J :the 

ight=9: gosub TEXTHEIGHT 

1800 texty=149:a$=" background black 

white":gosub TEXTPRINT 



1810 texty=159:aS=" load save BASIC 

save ouit": gosub TEXTPRINT 

1820 texty=169:aS=" instructions cust 

OM function":gosub TEXTPRINT 

1830 texty=179:aS=" clear inage disk 

functions ":gosub TEXTPRINT 
1848 theight=9:gosub TEXTHEIGHT 
1858 tex=8:gosub TEXT :Mode=l: gosub WRI 
TEMODE 
1868 return 
1900 TEXT: 

1910 poke contrl,l86:poke contrl+2,8:p 
oke contrl+6,1 

1928 poke intin,tex: vdisystlJ :return 
1968 DOTl: 

1978 poke contrl,ll:poke contrl+2,2:po 
ke contrl+6,8 

1988 poke contrl+18,l:poke ptsin, Cdx) : 
poke ptsin+2, tdyJ 

1998 poke ptsin+4, Cdx+lJ spoke ptsin+6, 
(dy} 

2888 vdisystl) :return 
2848 D0T2: 

2858 poke contrl,ll:poke contrl+2,2:po 
ke contrl+6,8 

2068 poke contrl+18,l:poke ptsin, Cdx) : 
poke ptsin+2, Cdy) 
2870 poke ptsin+4, Cdx) :poke ptsin+6, Cd 

y) 

2088 vdisysci) :return 

2128 IN5TRUC: 

2138 alrt$="Cl] CIN5TRUCTI0N5: iLeft but 

tonjselects function. [Right buttoni" 

2148 alrtS=alrtS+"sets action point] Co 

k]": gosub ALERT 

2158 return 

2198 FUNCTIONl: 

2200 alrtS="Cl] tICustOH function] topti 

onl|option2]" 

2210 gosub ALERT 

2220 return 

2260 TEXTPRINT: 

2278 poke contrl,8:poke contrl+2,l:pok 

e contrl+6,lenCaS)+l 

2280 poke ptsin, textx:poke ptsin+2, tex 

2298 for M=i to lenCaS) 

2300 poke intin+CM-l)»2,asc CMidSCaS,«, 

1)1 

2310 next M:poke intin+CM-l)»2,e: vdisy 

sCl) : return 

2350 SETUP: 

2360 poke systab+2,1: gosub GEMSTUFF 

2370 poke contrl,22:poke contrl+2,0:po 

ke contrl+6,1 

2380 poke intin,2:vdisysci) 

2390 linef 0,132,258,132 

2400 linef 5,136,120,136:linef 128,164 

,5,164:MOde=2:gosub WRITEMODE 

2418 linef 128,136,128,164:linef 5,136 

,5,164:gosub FIXTEX 

2428 color l,2,l,l,l:fill 2,134:tex=l: 

gosub TEXT 

2448 textcolor=0:gosub TEXCOL 

2458 textx=17»8 : texty=2Ht8 : aS="iMage" : 

gosub TEXTPRINT ^ ^ ,^„,„„ 

2468 texty=22»8:aS="area": gosub TEXTPR 

INT :Hode=l: gosub HRITEMODE 

2488 linef 258,8,258,190:linef 259,8,2 

59,198 

2498 linef 4,136,4,164:linef 121,136,1 

21,164 

2588 linef 258,118,620,118 

2518 linef 258,108,628,ie8:textX=26e 

2530 color l,2,l,l,l:fill 268,112 

2548 linef 263,0, 263, 105:linef 264,0,2 

64,105 

2550 linef 263,185,273,180;linef 273,1 
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// Mouse Maker contirxued 



08,570,100 

2560 linef 570,100,580,95: 

,580,0 

2580 linef 581,95,581,0 

2590 color 1,1,1,1,1: fill 

82,150 

2600 gOSUb BARS 

2610 gosub PL5ETUP 

2630 plx=:261:ply=141:plxl: 

: gosub POLYLINE 

2640 plx=356:ply=141:plxl: 

:gosub POLYLINE 

2650 plx=408:ply=141:plxl: 

:gosub POLYLINE 

2660 plx=261:ply=151:plxl: 

igosub POLYLINE 

2670 plx=312:ply=151:plxl: 

:90SUb POLYLINE 

2680 plx=360:ply=151:plxl: 

:gosub POLYLINE 

2690 plx=456:ply=151;plxl: 

:gosub POLYLINE 

2700 plx=261:ply=161:plxl: 

:gosub POLYLINE 

2710 plx=371:ply=161:plxl: 

igosub POLYLINE 

2720 plxr261:ply=171:plxl: 

:gosub POLYLINE 

2730 plx=371:ply=171:plxl: 

:gosub POLYLINE 

2740 return 

2780 TEXTHEIGHT: 



linef 580,95 
582,0:fill 5 



355 


plyl=151 


407 


plyl=151 


510 


plyl=151 


312 


■plyl=161 


359 


:plyl=161 


455 


:plyl=161 


510 


:plyl=16l 


370 


:plyl=171 


510 


:plyl=l71 


370 


Plyl=181 


510 


plyl=181 



2790 poke contrl,107:poke contrl+2,0:p 

oke contrl+6,1 

2800 poke intin,theisht:vdisysCl} :retu 

rn 

2840 FIXTEK: 

2850 poke contrl,106:poke contrl+2,0:p 

oke contrl+6,lipoke intin,0 

2860 vdisysCl) :poke contrl,107:poke co 

ntrl+2,0:poke contrl+6,1 

2870 poke intin,9: vdisysCll :poke contr 

I,22:poke contrl+2,0 

2880 poke CDntrl+6,l:poke intin,l:vdis 

ysClJ : return 

2950 DATASflyE: 

2960 gosub FIKTEK 

2970 alrt$="[3] tISave cursor form data 

file?! tYes|No]":gosub ALERT 
2980 if choice=2 then return 
3000 gosub HI0ECUR50R 
3010 gotoxy 32,0:? "Mait while cursor 
data" 
3030 gotoxy 32,1:? "is being processed 

II 

3050 gosub HIDECUR5DR:gosub TRANSLATE 

3060 gotoxy 32,0:? space$C21) 

3070 gotoxy 32,1:? spaceSt21) 

3080 gosub FIKTEK:color 1 

3090 poke systab+24,onn: gotoxy 32,0 

3100 ? "Which data filetl-50,0 cancels 

J" 

3110 gotoxy 36,l:input datf il$:dataf il 

e=val CdatfilS) 



ATARI USERS' GROUPS 



Modesto Atari Computer Club (MACC) 
RQ Box 3811, Modesto, CA 95352 
Meetings; BBS; newsletter President: Robert Jotinstone. 

San Luis Obispo Atari Computer Enthusiasts 
P.O. Box 4156, San Luis Obispo, CA 93403 
Meetings; BBS; newsletter: Slo-Pokes. 
President: Mark McMurry. 

Conejo Valley Atari Users' Group (CVAUG) 

587 "F" North Ventu Park Rd., Suite 123, 

Thousand Oaks, CA 91320 

Meetings; BBS; newsletter President: Grant Peterson. 

Pikes Peek Poke Atari Computer Enthusiasts (PA3ACE) 
PO. Box 9282, Colorado Springs, CO 80935 
Meetings; newsletter President: Eric Kowalski. 

Gainesville Atari Group (GAG) 

6733-B SW 5th Place, Gainesville, FL 32607-1706 
Meetings; newsletter President: Darin L. Delegal. 

Louisiana Atari Computer Enthusiasts (LACE) 
6925 Oak Hill Circle, Shreveport, LA 71106 
Meetings; BBS; newsletter President: Mike Hinz. 

Frederick Atari Computer Enthusiasts (FACE) 
RQ Box 300, Keedysville, MD 21756 
Meetings; BBS; newsletter: Current Notes. 
President: John Maschmeier. 



Battle Creek Atari Users Group (BCAUG) 

22554 Pine Lake Rd., Battle Creek, Ml 49017 
Meetings; newsletter President: Chuck Steele. 

Warrensburg Atari Computer Owners (WACO) 
RO. Box 199, Warrensburg, MO 64093 
Meetings; BBS; newsletter: W.A.C.O. Wramblings. 
President: Les Lynam. 

Brooklyn Atari Society for Information 
& Communication (BASIC) 

c/o Peter J. Fazio, 

2724 East 23rd St., Brooklyn, NY 11235 

Meetings; newsletter: Dateline: Atari. 

Long Island Atari Computer Enthusiasts (LIACE) 
RO. Box 382, Bellport, NY 11713 
Meetings; newsletter President: Mike Ferrara. 

Keystone Area Atari Computer Enthusiasts (KACE) 
740 Horner St., Johnstown, PA 15902 
Meetings; BBS; newsletter 

Tri-Cities Atari Support Club 

PO. Box 1148, Petersburg, VA 23803 
Meetings; newsletter: TASC Times. 
President: John Tarnaski. 

Milwaukee Area Atari Users' Group (MILATARI) 
RO. Box 19858-0858 
Meetings; SIGs; BBS; newsletter President: Ron Fnedel. 



ATTENTION USERS' GROUPS 

If you would like your organization to be listed here, send information (and newsletter, if appropriate) to ANALOG Computing 
Group Listing, PO. Box 23, Worcester, MA 01603. ANALOG Computing is not responsible for errors. 
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3138 if datafile=0 then gosub DESTROY 
3148 if datafile=e then gosub 5H0MCURS 
ORtpoke systab+24,of f :return 
3150 if datafile<l or datafile>50 then 

gosub dlalert:goto 3090 
3170 f inaHe$="a:^cursor\crsrdata."+dat 
fil$ 

3180 poke systab+24,of f 
3288 open "D",01, f inane$:close ttl:Dpen 

■'0",«l,f inaMe$ 
3218 for i=l to 32 

3220 print ttl,str$CcursorCi) J :next i 
3230 close tti 

3258 gotoxy 32,0:gosub DESTROY 
3268 gotoxy 32,0:? "Type the filenane 
for this file." 
3278 poke systab+24,onn 
3280 gotoxy 32,1: input quests 
3250 naMCSfileSCval tdatf ilS))=questS 
3300 poke systab+24,of f :gosub DESTROY: 
gosub PUTFILE 
3310 gosub SHOMCURSOR 
3320 return 
3360 DATALOAD: 

3370 alrtS="t31 CiLoad cursor forw data 
1 [Yes|Nol":gosub ALERT 
3380 if choice=2 then return 
3400 gosub HIDECURSOR 

3410 gosub fixtex:color l:gosub BOXER: 
gosub BARS 

3420 gotoxy 32,0:? "Which data fileCl- 
50,0 cancels!" 




Am^ 



DESPERATE BATTLE 
FOR EARTH 



STRATEGY 

ACTION 

SPACE 

BATTLES 

FIRST 
PERSON 
ANIMATED GRAPHICS 




Join the Allied Rebel Fleet. 
Fight the dreaded Aliant army, 
the force that holds the Earth 
in chains. Their power crystals 
are on the way. Once they ar- 
rive, Humanity is doomed. 
Top-notch bulllet pilots are 
needed to stop them. Lead 
the mission to free the Earth. 
Only the bravest need apply. 

DO YOU HAVE WHAT IT TAKES? 
EXCLUSIVELY DISTRIBUTED BY 



PROGRAM PARAMETERS 

LANGUAGE MACHINE 

NUMBER OF PLAYERS 1 

AVERAGE COMPLETION . . 90 MIN, 

AGE GROUP 10 TO ADULT 

CLASS STRATEGY ACTION 

SOUND YES 

ANIMATED GRAPHICS YES 

EQUIPMENT JOYSTICK 



SYSTEMS 

AVAILABLE 

ATARI ST 

ATARI 
C-64/128 




ORDER NOW 

305-423-1987 
STARSOFT DEVELOPMENT LABORATORIES 

CIRCLE »109 ON READER SERVICE CARD 



TDC DISTRIBUTORS INC. 
3331 BARTLETT BOULEVARD 
ORLANDO, FLORIDA 32811 



3430 gotoxy 36,1 

3440 poke systab-<-24,onn: input datfil$ 

3450 dataf ile=val Cdatf il$} :pDke systab 

+24,of f 

3470 if datafile=o then gosub DESTROY: 

gosub SHOMCURSOR 

3480 if dataf ile=o then poke systab+24 

,of f :return 

3490 if datafile<l or datafile>50 then 

gosub DLALERT:gotO 3430 
3510 f inaMeS="a:Kcursor\crsrdata."+dat 
filS 
3520 open "l",ttl, f inane$:close ttl:Dpen 

"I",«l,f inaMeS 
3530 for i=l to 32: input «1, datastuf f S 
3540 cursorCi}=val (datastuf f$} :next i 
3550 close »1 

3570 gotoxy 32,0:? spaceSt361 
3580 gotoxy 32,1:? space$C36] 
3590 gosub HIDECURSOR: gosub TRAHSLATE2 
3600 gosub DESTROY: gosub SHOMCURSOR 
3610 return 
3630 TRAHSLATE2: 
3640 fc=o:gosub BC:gab=0 
3650 for ii= 1 to 16:ct=15 
3660 for i=0 to 15 

3670 if cursor£ii)=0 then goto 3690 
3680 if cursortii3> CC2'^ct)-l) then gos 
Ub PLOTTER 

3690 ct=ct-l:next i:next ii 
3700 fc=l:gosub BC:gab=16 
3710 for ii=17 to 32:ct=15:zz=ii-16 



A 

ATARI 

$49.95 



THE 
"BLACK PATCH" 

UNPROTECT favorite game / utilities disks with any 
drive. . .no modifications necessary! Fast machine 
language program is totally automatic, no guesswork! 
Fast, simple, with no hardware modifications, copies 
will run on any computer, any drive (made for running 
Atari software). 



A 

ATARI 

S49.95 



• FAST machine language 

• Supports multiple drives 

• Eliminates BAD sectors 

• Eliminates Custom formats 

• Copies can be recopied 

• Auto-formatting 



• Makes multiple copies 

• Copies Single or DOUBLE Density 

• Works w/itfi all Atari computers 

• Works with ANY drive 

• Over 300 program patches 

• Additional Data Disks available 



There ore several look-o-like programs available at cheap prices but NONE 
ore OS POWERf UL, versatile, and as easy to use as the BLACK PATCHI Utilizes 
extra memory in XL-XE computers. 



*9995 



THE "KLONE Ii!" 



*9995 



Convert your 1050 into a true DOUBLE DENSITY drive with FAST read/write 
capabilities and the COPYING power of the new HAPPY 7.0 Backup System 
(Happy 7.0 software included!). Make your 1050 drive fully compdtible with 
dll Other 810 or 1050 Happy 7.0 drives! Also compatible with the Happy 
Archiver disk! 



• Fast, easy installation 

• Hi-speed read/write 

• True DOUBLE DENSITY 

• HAPPY 7.0 compatible 



• HAPPY Archiver compatible 

• Copies 99% of all programs 

• Includes WARP SPEED Dos 

• Built in FILE maker! 



The "KLONE III" with the HAPPY System is the most POWERFUL, versatile easy 
to use, economical, and RELIABLE backup device currently available! 

SEND OR CALL FOr? OUR FREE catalog of special products and DISCOUNTS. 
Other products include: The Fuzzy/Phantom sector maker, Archiver 
enhancemenl. Slow-it-down, Silencer, Tranquilizer ULTRA SPEED OS, Selector, 
Ultra-Menu, XtVXE Fix, Diskcracker, Protector, Super PILL, Impossible 
Compare-it, Miracle, Richmons 80 Column Work Processor, Guordion, XL- 
Mote, Compactor, and Impossible datd Analyzer! 

DEALER/DISTRIBUTOR/USER GROUP Discounts available. Coll for info! 

COMPUTER SOFTWARE SERVICES 

RO. BOX 17660 
ROCHESTER, N.Y 14617 
(716) 467-9326 



Master Card - Visa phone orders 

Money Orders - Check moil order 

Specify computer and drive' model 

numbers. Add $4 shipping/handling 

(N.Y. State residents add 7% tax) „^„,„„„ „.o^^ 

CIRCLE #110 ON HEADER SERVICE CARD 
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3720 for i=0 to 15 

3730 if cursorCii)=0 then goto 3750 

3740 if cursortii>> tC2Act)-l) then gos 

Ub PLOTTER 

3750 ct=ct-l:next i : next ii:return 

3790 WRITEMODE: 

3800 poke contrl,32:poke contrl+2,e:po 

ke contrl+6,1 

3810 poke intin,Mode:vdis!/sCl} :return 

3850 quitprogram; 

3860 alrtS="I3] CJOuit PrograM?] CYESlMO 

]" 

3870 gosub ALERT 

3880 if choice=2 then return 

3890 for 1=1 to 4:cindex=i-l 

3900 red=oldc Ci,l} :9reen=oldc ti,2} 

3910 blue=0ldc Ci,3) 

3920 gosub 5ETC0L0R:next i 

3930 poke systab+24,onn 

3940 end 

3980 TEXCOL: 

3990 poke contrl,22:poke contrl+2,e:po 

ke contrl+6,1 

4000 poke intin,textcolor:vdisysC21 :re 

turn 

4040 erasearea: 

4050 for i=0 to 7 

4060 gotoxy 32, i:? space$C361 : next i:r 

esuMe HAIN 

4100 ALERT: 

4110 gosub SH0HCUR30R 

4120 geMtt=addrin:poke gintin.cho 

4130 alrtS=alrt$+chrS(0)+chrSCO) 

4140 poke gei<at,varptr Calrt$l :gens!/sC52 

) 

4150 choice=peek(gintout} :cho=l 

4160 return 

4200 SH0MCUR50R: 

4210 poke contrl,122:poke contrl+2,0:p 

oke contrl+6,l!poke intin,e 

4220 vdis!/sCl) :return 

4260 HIDECUR50R: 

4270 poke contrl,123:poke contrl'<'2,0:p 

oke contrl+6,0: vdisysCll :return 

4310 IMAGECLEAR: 

4320 alrt$="[3] ClErase cursor inage?] [ 

Ves|No]":gosub ALERT 

4330 if choice=2 then return 

4340 gosub BDXER:gosub BAR5:gosub SHOM 

CURSOR: return 

4380 DLALERT: 

4390 alrt$="[l] [|HUMber was not in pro 

per range! [OKI :gosub ALERT:return 

4430 DESTROY: 

4440 color l,0,l,l,l:poke contrl,ll:po 

ke contrl+2,2:poke contrl+6,0 

4450 poke contrl-i-2e,l:poke ptsin,266:p 

oke ptsin+2,22:poke ptsin+4,571 

4460 poke ptsin+6,120:vdisvsCl) :return 

4490 BOXER: 

4500 fc=3:gosub BC 

4510 poke contrl,ll:poke contrl+2,2:po 

ke contrl+6,0 

4520 poke contrl+l8,l:poke ptsin,+l:po 

ke ptsin+2,22 

4530 poke ptsin+4, C16»15)+18:poke ptsi 

n+6, t8*19) 

4540 vdisysCl) :gosub B0XlNG:return 

4580 GEM5TUFF: 

4590 att=gb 

4600 control=peek{att) 

4610 global=peekCatt+41 

4620 gintin=peek(att+81 

4630 gintout=peek(att+12] 

4640 addrin=peekCatt+16) : return 

4680 MOUSE: 

4690 poke contrl,124:poke contrl+2,e:p 

oke contrl+6,0: vdisysCl) 



4700 Hsb=peek(intout) :nsx=peekCptsout} 

:Msy=peek(ptsout+2l :return 

4740 BARS: 

4750 color l,l,l,l,l:qt=0 

4760 lt=15:for i=l to 16:linef It, 9, It 

,128:lt=lt+16:next i 

4770 for i=0 to 16:linef e,qt,254,qt:q 

t=qt+8:next i:return 

4810 POLYLINE: 

4820 poke contrl,6:poke contrl+2,5: pok 

e contrl+6,0 

4830 poke ptsin,plx:poke ptsin+2,ply :p 

oke ptsin+4,plxl 

4840 poke ptsin+6,plbi:poke ptsin+8,plx 

l:poke ptsin+l0,plyl 

4858 poke ptsin+l2,plx:poke ptsin+14,p 

l!,il:poke ptsin+16,plx 

4860 poke ptsin+18,ply:wdisysClJ :retur 

n 

4900 plsetup: 

4910 poke contrl,17:poke contrl+2,0:po 

ke contrl+6,l:poke intin,0 

4928 vdisys CI) : return 

4960 BOK: 

4970 gosub BLK 

4980 dX=C2*bX) +15 :dy=by+161: gosub DOTl 

:dx=bx+60:gosub D0T2 

4990 return 

5030 BOXING: 

5040 color 3,3,3,1,1 

5050 poke contrl,ll:poke contrl+2,2:po 

ke contrl+6,0 

5060 poke contrl+10,l:poke ptsin,15:po 

ke ptsin+2,161 

5070 poke ptsin+4,120:poke ptSin+6,184 

5080 vdisysCl) :return 

5120 PLOTTER: 

5138 by=Cii-lJ-gab:bx=Ci) :gosub BLK 

5140 dx=t2»bx) +15 :dy=by+16l: gosub DOTl 

5150 dx=bx+60:gosub D0T2 

5160 cursor Cii)=cursorCii)-t2^ct) :retu 

rn 

5200 MELCOME: 

5210 color l,l,l,l,l:poke contrl,ll:po 

ke contrl+2,2:poke contrl+6,8 

5220 poke contrl+10,l:poke ptsin,l:pok 

e ptsin+2,22:poke ptsin+4,609 

5230 poke ptsin+6,189: vdisysd) 

5240 M0de=2: gosub MRITEMODE 

5250 color l,2,i,2,2:pcircle 300,90,20 



5260 pcircle 8,0,170 

5270 pcircle 610,0,200 

5280 for i=l to 20 

5300 xfactor=intCrndCl)*630> 

5310 yfactor=inttrndCl)»180) 

5320 radi=intCrndtl)»l58J 

5330 color 1,2,1,1, intCrndtl)»5J 

5340 pcircle xfactor,yfactor,radi 

5350 next i:color 0,1,1,1,1 

5360 theight=42:gosub TEXTHEIGHT: tex=4 

:gosub TEXT 

5370 textx=50:texty=60:aS="M U s E 

MAKER ver. 3.5":gosub TEXTPRINT 

5380 theight=ll:gosub TEXTHEIGHT : tex=l 

:gosub TEXT 

5390 textx=120:texty=8O:a$=" By Savee 

n U. Reddy ":gosub TEXTPRINT 

5400 theight=9 : textx=160 : textyrlOO : a$= 

"Please wait for prograH to begin" 

5410 gosub TEXTHEIGHTsgosub TEXTPRINT 

5420 MOderl: gosub MRITEMODE: gosub fixt 

ex 

5430 for i=l to 2100:next i 

5440 return 

5480 GETFILE: 

5490 open "l",ttl,"S.cursor\naMes. f il":c 

lose ttl 



PAGE 36 /JUNE 1987 



ANALOG COMPUTING 



5500 open ■■l",ttl,"'S,cursorS.naMes. f il" 

5510 for i=l to 50 

5520 input «l, quests 

5530 nanesfile$Ci}=quest$ 

5540 next i 

5550 Close »1 

5560 return 

5600 PUTFILE: 

5610 open "0",tt-l-j"'^cursor\naMes. f il"!c 

lose »1 

5620 open "0",»l,"\cursor\naMes. f il" 

5630 for i=l to 50 

5640 print tll,naHesf ileSCil 

5660 next i 

5670 Close ttX 

5680 return 

5720 DI5KFUNCTI0M5! 

5750 alrt$="ti: [|Select a function! CDi 

r|RenaMe|Cancel]":gosub ALERT 

5760 if choice=3 then return 

5770 if choice=l then goto DIRECTORY 

5780 if choice=2 then goto RENAME 

5790 return 

5810 DIRECTORY: 

5820 'osub fixtex 

5830 for i=l to 50 Step 10 

5840 for ii=0 to 3 

5850 gotoxy 32,ii:print ti+ii) ;"-";naH 

esf ileS(i+iiJ 

5860 next ii 

5870 gotoxy 32,10:? " Press any key to 

continue " 
5880 woo=inpC2} : gotoxy 32,10:? " 



"RENAME FILE" 
"Type the nunber of 



'The current for fi 



5890 gosub destroy 
5900 next i:return 
5920 RENAME: 
5930 gotoxy 36,1:? 
5940 gotoxy 32,2:? 

the file" 
5950 gotoxy 32,3:? "you wish to renane 

(1-50)" 
5955 poke systab+24,onn 
5960 gotoxy 35,5:input datf il$:df=val C 
datf ilSJ 

5970 if df=0 then gosub DE5TR0Y:return 
5980 if df<l or df>50 then gosub DLALE 
RTigotO 5960 
5990 gosub DESTROY 
6000 gotoxy 32,0:? 
le tt";df 

6010 gotoxy 32,1:? nanesf ile$ tdf) 
6020 gotoxy 32,3:? "Replace with" 
6030 gotoxy 32,4: input quest5:poke sys 
tab+24,off 

6040 alrt$="i:i3 CiReplace "^nanesf ileSC 
df) +" I with "+quest$+": CYes I No] 
6050 gosub ALERT 

6060 if choice=2 then gosub DE5TR0Y:re 
turn 

6070 gosub DE5TR0Y:nanesfile$Cdf]=ques 
t$!gosub PUTFILE; return 
6080 CHANGECOLORS: 

6090 for i=i to 4:cindex=i-l 

6100 gosub INQCOLOR 

6110 oldc(i,l)=red 

6120 Dldc Ci,2]=green 

6130 OldCCi,3}=blue 

6140 next i 

6160 restore 6170 

6170 data 7,7,7 

6180 data 0,0,0 

6190 data 7,0,0 

6200 data 0,6,0 

6210 for i=l to 4:cindex=i-l 

6220 read newel, newc2,newc3 

6230 red=intCnewcl»ClOO0/7J) 

6240 green=intCnewc2»fl0O0/7J J 



6250 blue=inttnewc3*C10OO/73) 

6260 gosub SETCOLOR 

6270 next i:return 

6280 SETCOLOR: 

6290 poke contrl,14 

6300 poke contrl+2,0 

6310 poke contrl+6,4 

6320 poke intin,cindex 

6330 poke intin+2,red 

6340 poke intin+4, green 

6350 poke intin+6,blue 

5360 vdisysci) :return 

6370 INDCOLDR: 

6380 poke CDntrl,26 

6390 poke contrl+2,0 

6400 poke contrl+6,2 

6410 poke intin,cindex 

6420 poke intin+2,0 

6430 Vdisysci) 

6440 red=peek(intout+2} 

6450 green=peekCintout+4} 

6460 blue=peekCintout+6) 

6470 return 



ST CHECKSUM DATA. 

(see page 38] 

10 data 901, 918, 419, 677, 247, 159 
, 131, 969, 693, 814, 5928 

160 data 345, 720, 290, 96, 918, 340 
, 678, 570, 729, 474, 5160 

320 data 480, 836, 843, 963, 75, 
, 358, 906, 318, 326, 5306 

450 data 305, 854, 875, 808, 415, 
1, 49, 76, 694, 421, 5288 

580 data 910, 99, 978, 704, 386, ^„w 
, 892, 89, 996, 722, 6044 

680 data 407, 286, 886, 345, 762, 57 

1, 707, 969, 555, 841, 6329 

840 data 243, 739, 822, 437, 208, 86 

0, 420, 563, 855, 125, 5264 

1030 data 868, 614, 234, 125, 11, 42 

2, 39, 939, 708, 611, 4571 

1190 data 156, 424, 390, 181, 212, 4 
47, 649, 33, 248, 208, 2948 
1320 data 474, 732, 135, 977, 11, 80 

1, 529, 641, 996, 733, 6029 

1440 data 387, 920, 9, 915, 530, 12, 

321, 278, 654, 957, 4983 

1540 data 397, 344, 723, 351, 917, 3 
17, 791, 778, 882, 429, 5929 

1640 data 887, 603, 262, 210, 207, 4 
41, 65, 698, 989, 845, 5287 

1770 data 948, 166, 722, 431, 725, 5 
84, 953, 956, 983, 851, 7319 

1900 data 195, 562, 351, 158, 308, 2 
7, 771, 471, 132, 281, 3256 

2060 data 0, 262, 479, 653, 857, 58, 



201 

79 

268 



220 data 831, 11, 393, 320, 291, 

903, 390, 621, 298, 4764 
.388 data 316, 786, 163, 581, 694, „ 
>, 881, 828, 489, 273, 5777 
x;588 data 68, 732, 65, 339, 726, 336 
, 784, 610, 106, 635, 4393 

2638 data 78, 72, 44, 60, 78, 81, 65 
, 67, 63, 73, 673 

2730 data 69, 848, 65, 569, 277, 536 
, 873, 319, 885, 499, 4948 

2958 data 798, 562, 959, 588, 12, 74 
6, 253, 646, 116, 119, 4791 
3080 data 930, 643, 564, 987, 87, 

c ctn Tc* can •joo coctc 



73 
71 
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3470 data 860, 507, 77, 357, 775, 4, 

458, 700, 143, 146, 4027 

3590 data 815, 601, 844, 28, 532, 81 

5, 436, 448, 345, 365, 5229 

3700 data 641, 417, 435, 440, 344, 8 
40, 919, 301, 593, 335, 5265 

3860 data 988, 270, 587, 286, 263, 8 
55, 104, 749, 138, 518, 4758 

3990 data 312, 662, 809, 384, 428, 3 
39, 78, 613, 524, 437, 4586 

4150 data 268, 836, 117, 847, 483, 6 
3, 707, 937, 682, 569, 5589 

4340 data 459, 580, 225, 648, 298, 8 
25, 949, 404, 165, 440, 4993 

4520 data 411, 561, 639, 841, 33, 63 

6, 556, 592, 942, 695, 5906 

4680 data 399, 29, 957, 154, 777, 24 
3, 429, 829, 474, 315, 4606 
4840 data 802, 738, 165, 684, 267, 7 

35, 28, 756, 398, 479, 5053 

5030 data 481, 140, 431, 525, 761, 7 
17, 621, 249, 685, 939, 5549 

5160 data 329, 590, 294, 482, 840, 5 
76, 238, 231, 382, 45, 4007 

5300 data 319, 326, 829, 551, 413, 1 
27, 737, 263, 728, 53, 4338 

5400 data 431, 147, 492, 133, 461, 6 

00, 416, 323, 56, 407, 3466 

5530 data 193, 356, 416, 466, 639, 4 
20, 334, 61, 274, 361, 3520 

5670 data 421, 471, 574, 289, 500, 6 
03, 132, 475, 998, 241, 4704 

5830 data 116, 37, 550, 440, 527, 75 
6, 343, 371, 457, 951, 4548 

5940 data 510, 417, 955, 10, 152, 28 

1, 346, 692, 74, 754, 4201 

6030 data 206, 113, 250, 959, 367, 3 

36, 268, 742, 574, 127, 3942 

6130 data 788, 666, 472, 811, 770, 7 
92, 777, 266, 495, 852, 6689 



6240 data 221, 991, 752, 63, 849, 91 
8, 38, 55, 756, 317, 4960 

6340 data 874, 539, 494, 850, 925, 4 
7, 51, 758, 784, 103, 5425 

6440 data 779, 53, 32, 850, 1714 



WHAT IS 

ST-CHECK? 

Most ST program listings in this magazine are fol- 
lowed by a table of numbers appearing as data state- 
ments, called "ST CHECKSUM DATA." These num- 
bers are to be used in conjunction with ST-Check 
(which appeared in ANALOG Computing issue 41). 

ST-Check (written by Clayton Walnum) is designed 
to find and correct typing errors when readers are en- 
tering programs from the magazine. For those read- 
ers who would like copies of the article, you may send 
for back issue 41 ($4.00) of ANALOG Computing. 

ANALOG Computing 

P.O. Box 625, Holmes, PA 19045 



Some program 


listings reproduce 


d in ANALOG 


Computing may 


contain 


'strange" 


characters not shown 


on the keyb 


oards of earlier Atari models. These are special characters which 


use 


the CTRL, ESC and "ATARI 


LOGO" (inverse) keys. 


Shown below is a list of these characters and the 


keystrokes used to get them. 


• 


CTRL 


r 






CTRL U 




n 


— 


INVERSE 


CTRL 


E 


L 


— _• 


INVERSE CTRL Z 


y — 


CTRI. 


A 




""--* 


CTRL V 




^i 


— 


INVERSE 


CTRL 


F 


□ 





ESC DELETE 


1 — 


CTRL 


B 




"""— 


CTRL M 




1? 


— 


INVERSE 


CTRL 


G 


□ 





ESC INSERT 


J 


CTRL 


C 




— — 


CTRL X 




r 


— 


INVERSE 


CTRL 


H 


Q 





ESC CTRL TAB (CLRJ 


H — 


CTRL 


D 




— ._ 


CTRL V 




r 


— 


INVERSE 


CTRL 


I 


B 





ESC SHIFT TAB CSET) 


T 


CTRL 


E 







CTRL Z 




^ 


— 


INVERSE 


CTRL 


J 


I 





INVERSE SPACE 


/ 


CTRL 


F 







ESC ESC 




ii 


— 


INVERSE 


CTRL 


K 


■ 





INVERSE _ 


\ — 


CTRL 


G 







ESC CTRL 


UP-ARROH 


J 


— 


INVERSE 


CTRL 


L 


□ 





INVERSE CTRL . 


A — 


CTRL 


H 







ESC CTRL 


DOHN-ARROH 


m 


— 


INVERSE 


CTRL 


M 


D 





INVERSE CTRL ; 


■ 


CTRL 


I 







ESC CTRL 


LEFT-ARROH 


■ 


— 


INVERSE 


CTRL 


N 


II 





INVERSE 1 


k — 


CTRL 


J 







ESC CTRL 


RIGHT-ARROli 


1 


— 


INVERSE 


CTRL 





□ 





ESC CTRL 2 


■ 


CTRL 


K 







CTRL . 




B 


— 


INVERSE 


CTRL 


P 


U 





ESC CTRL BACK S 


■ 


CTRL 


L 







CTRL ; 




n 


— 


INVERSE 


CTRL 


a 


u 





ESC CTRL INSERT 


■* 


CTRL 


H 







ESC SHIFT CLEAR 


" 


— 


INVERSE 


CTRL 


R 








_ 


CTRL 


N 







ESC BACK 


S 


■ B 
It 


— 


INVERSE 


CTRL 


s 








■ 


CTRL 










ESC TAB 




□ 


— 


INVERSE 


CTRL 


T 








♦ 


CTRL 


P 







INUERSE 


CTRL , 


■ 


— 


INVERSE 


CTRL 


U 








r 


CTRL 










INVERSE 


CTRL A 


1 


— 


INVERSE 


CTRL 


V 








_ 


CTRL 


R 







mWERSE 


CTRL B 


■ 1 


— 


INVERSE 


CTRL 


M 








+ 


CTRL 


5 







INVERSE 


CTRL C 


■ ■ 


— 


INVERSE 


CTRL 


K 








• 


CTRL 


T 


■ 1 




INVERSE 


CTRL D 


T 




INVERSE 


CTRL 


V 
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PC Board Designer 



ABACUS SOFTWARE 

P.O. Box 7219 Dept. IB 

Grand Rapids, Ml 49510 

(516) 241-5510 

High or medium resolution $195.00 

by Matthew J.W. Ratcliff 

The PC Board Designer is a software 
package that will assist you in the crea- 
tion of printed circuit boards for your 
electronic hardware designs. This pro- 
gram will help you go from a schematic 
to a working prototype board with mini- 
mal effort, making tedious hand drawing 
and taping techniques things of the past. 

My complaints about the PC Board 
Designer in its previous release were 
primarily the cost and the limited size of 
the circuit boards one could design. The 
price has been cut in half, and the newest 
version of the software (a free upgrade to 
all owners of the earlier version) supports 
6. 3-by-4. 5-inch boards. This is only a mi- 
nor improvement over the previous 6.3-by- 
3. 9-inch size. The board is limited by the 
size of the display, since it is not a scroll- 
able GEM window. If you can live with 
the small size of the boards, you'll find 
the PC Bocird Designer very powerful and 
easy to use. 

Among the stated featm-s of the PC 
Board Designer is that it can handle up 
to 250 components, with up to 1100 con- 
nections for a single design — although 
you would probably never fit that much 
into a 6-by-4-inch space. It handles single- 
or double-sided PC boards, and can au- 
tomatically route connec ions to youi' lay- 
out. No matter how goo. i you are at de- 
signing boards, a great deal of "manual" 
routing will be required as well, for any- 
thing but the simplest boards. You'll find 



8tsk Flit Input layoat Unutina Hanual Dirttat 




<ru-Sh« <f J>-SBartli <f5>-SEt <F7>-Clniigc <FlB>-RoutB 



m D12 1 
!U2 Olil 

lu I m 1 

lis Z D1& 1 

I! 2 Di 1 

119 2 K( 1 

ICt ! IH u m 

IC1UR7 1 4TII 

IC2 15 R18 1 tro 

ICSl C3 1 UTD 

RZS 2 tTO 

IC» 15 (TD 

lU 11 m 



»H2 
ICtZ 



it quite easy to lay out your components 
on the board, perform a test route, adjust 
positioning, and perform another auto 
route. 

The PC Board Designer makes it very 
easy to modify your component layout, al- 
lowing you to pick up and "drag" a com- 
ponent anywhere on the board, clicking 
to rotate by 90-degree increments if nec- 
essary. As you drag a component around 
the board, its connections to other com- 
ponents are displayed continuously, with 
"rubber-band lines" to help you make the 
best placement for autorouting the signals. 
When the optimum layout is defined (a 
minimum of incomplete connections is 
achieved), then the remainder of the con- 
nections are completed in the manual 
mode. This is as simple as pointing and 
clicking with the mouse. 

You may select routing at 45- or 90- 
degree angles. Two different trace wdths 
are available. The wider will generally be 
used for power supply and ground lines. 
When you're ready to produce a prototype 
board, your completed board can be sent 
to an Epson FX80 or compatible printer, 
double sized. It can be reduced by 50 per- 
cent and used to create a transparent mas- 
ter for photo etching. 

Note that the Gemini SGIO or earlier 
printers are not supported. The graphics 
output software uses Epson's programma- 
ble line feed, which is in 216ths of an 
inch. The Gemini's programmed in 144ths 
of an inch. Abacus is developing drivers 
for other printers, and pen plotters made 



by Hewlett-Packard and Epson. Support 
for NEC and Toshiba printers is currently 
available also, in the form of stand-alone 
load and print utilities. 

In addition to outputting the printed 
circuit board, you can print a final lay- 
out of the pinholes and silk screen masks 
for the board. You can also output a list 
of components and the wire net (connec- 
tion list). 

In designing a board, you'll begin with 
a completed schematic. You may need to 
add components to the definition library, 
if they're not there. A fairly complete li- 
brary comes on the program disk. There's 
a separate component definition editor 
program for adding to, changing, or creat- 
ing a library. 

Next, you'll need to enter a component 
and connection list. Since there's no sep- 
arate window for these functions, you're 
limited by the width of the work area re- 
served to the right of the display. Compo- 
nent names in your design can only be 
three characters long (e.g., JCl, R8K, etc.), 
and their names in the library can only 
be six. 

While entering information into these 
lists, you can call up a component list in 
the circuit board display area. I find it 
very armoying that components are not 
sorted alphabetically, however, making 
them difficult to find. And, with a limi- 
tation of six characters, their names can't 
be very descriptive. 

(continued on page 74] 
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( TEVEX Computer Software 1-800-554-1162 



rssT 



LIST OUR 
PRICE PRICE 



\ I MICROPROSE p^^; pTe i I INFQCQM 



LIST OUR 
PRICE PRICE 



Battalion Commander 


$40 


$27 


Battle of Antietam 


S50 


$33 


Battlecruiser NEW 


;;60 


$40 


Broadsides 


!;40 


$27 


Carrier Force 


:;60 


$40 


Colonial Conquest 
Computer Ambush 


;;40 


$27 


;;6o 


$40 


Computer Quarterback 


;;4o 


$27 


Cosmic Balance 


;;40 


$27 


Field of Fire 


;;40 


$27 


50 Mission Crush 


!;40 


$27 


Gemstone Warrior 


:;i5 


$12 


Gettysburg! 
Imperium Galactum 


;;60 


$40 


S40 


$27 


Kampfgruppe 


;;60 


$40 


Kamp. Seen. Disk 
Kniqnts of the Desert 
Mech Brigade 


;;20 


$15 


S40 


$27 


S60 


$40 


Nam 


S40 


$27 


Operation Market Garden 


S50 


$33 


Panzer Grenadier 


:;40 


$27 


Phantasie NEW 


S40 


$27 


Questron 


S50 


$33 


Rails West 


<;40 


$27 


Rebel Charge NEW 


sso 


$33 


Reforger 88 


;;15 


$12 


Six Gun Shootout 


S40 


$27 


U.S.A.A.F. 


!;60 


$40 


War in Russia 


S80 


$53 


Wargame Constr Set 


;;30 


$20 


Warship NEW 
Wizard s Crown 


:;60 


$40 


S40 


$27 



Conflict in Vietnam 
Crusade in Europe 
Decision in the Desert 
F-15 

Kennedy Approach 
Silent Service 
Solo Flight 
Top Gunner 



$27 
$27 
$27 
$23 
$17 
$23 
$17 
$17 



1 



ATARI ST 



LIST 
PRICE 



OUR 
PRICE 



1 



Ballyhoo $40 $27 

Burueacracy NEW $40 $27 

Fooblitzky $40 $27 

Hitchhikers Guide $25 $17 

Hollywood Hiiinx NEW $35 $23 

Leather Goddesses $35 $23 

Moonmist $35 $23 

Zork Trilogy $60 $40 

Invisiclues $8 $6 



ELEC. ARTS 



LIST 
PRICE 



OUR 
PRICE 



BR0DERBUND 



TIFT 
PRICE 



PRICE 



I 



Champ. Lode Runner 

Lode Runner 

Lode Runner's Rescue 

Print Shop 

Print Shop Companion 

PSGrap. Lib. 1,5,3 



$23 
$23 
$20 
$30 
$23 
$17 



lEPYX 



LIST 
PRICE 



OUR 
PRICE 



1 



Summer Games $20 $15 

Temple Apshai Trilogy $20 $15 

World Karate Champ. $30 $20 

EPYX Joystick NEW $20 $15 



IDKG 



LIST 
PRICE 



OUR 
PRICE 



\ 



Clash of Wills 
Great War 1914 
Metz/Cobra 
Objective Kursk 
Surrender at Stalingrad 



$30 
$30 
$30 
$30 
$30 



Acrticfox 


NEW 


$40 


$27 


Alternate Reality 




S50 


$33 


Auto Duel 




:;50 


$33 


Balance of Power 




:;50 


$33 


Ballyhoo 




!;40 


$27 


Black Cauldron 




$40 


$27 


Borrowed Time 




S50 


$33 


Burueacracy 


NEW 


S40 


$27 


Champ. Wrestling 




$40 


$27 


Flight Simulator II 


;;50 


$33 


Golden Path 


NEW 


;;45 


$30 


Hacker II 




S40 


$27 


Hardball 


NEW 


S40 


$27 


Hitchhiker's Guide 


:;30 


$20 


Hollywood Hiiinx 
Kings Quest 11 




S40 


$27 




S50 


$33 


Kings Quest III 




S50 


$33 


Leader Board 




S4b 


$30 


LB. Tournament Disk 


S20 


$15 


Leather Goddesses 


!;40 


$27 


Mean 18 




:!45 


$30 


Mercenary 




S40 


$27 


Mercenary 2nd City 


S20 


$15 


Moonmist 




S40 


$27 


Ogre 




;;40 


$27 


Pawn 




S4b 


$30 


Phantasie 




;;4o 


$27 


Phantasie II 




;;4o 


$27 


Roadwar 2000 


NEW 


!;40 


$27 


S.D.L 




S50 


$33 


Shanghai 


NEW 


s;40 


$27 


Silent Service 




!;40 


$27 


Skyfox 




:;45 


$30 


Space Quest 




S50 


$33 


Star Fleet 1 




Sbb 


$37 


Starglider 




S45 


$30 


Sun dog 
Tass Times 




!;40 


$27 




i;40 


$27 


Tenth Frame 


NEW 


!;40 


$27 


2 on 2 Basketball NEW 


S40 


$27 


Ultima II 




S60 


$40 


Ultima III 




S60 


$40 


Universe II 




!;70 


$46 


Winter Games 




S40 


$27 


World Games 




,'140 


$27 


Zork Trilogy 


NEW 


$70 


$47 



I 



Age of Adventure $15 $12 

Archon or Adept $15 $12 

Autoduel NEW $50 $33 

Chessmaster 2000 $40 $27 

Chickamauga $35 $23 

Lords of Conquest $33 $22 

Mail Order Monsters $15 $12 

Movie Maker $15 $12 

Music Construction Set $15 $12 

M.U.L.E. $15 $12 

Ogre NEW $40 $27 

One on One $15 $12 

Racing Destr. Set $15 $12 

Rommel NEW $40 $27 

Star Fleet I $50 $33 

Touchdown Football $15 $12 

Ultima Ill-Origin Sys. $50 $33 

Ultima IV-Origin Sys. $60 $40 



ETC. 



LIST 
PRICE 



OUR 

PRICE 




Same Day 
Shipping 

We ship every order the same day 
it's placed. Just call before 3:30 
and we'll ship your order via UPS. 
U.S. Mail service is also available. 



CALL TOLL-FREE 1-800-554-1162 

Write for FREE CATALOG 
Open 9-8 Mon. - Fri. 10-5 Sat. 

Georgia residents call 404-441-3045. ORDERING ANDTERMS: C.O.D. orders 
welcome. When ordering by phone use VISA or MASTERCARD. When ordering 
by mail send money order. Include phone number. SHIPPING: Add $3,00 for 
siilpping and handling charge. Georgia residents add 4% sales tax. Shipping 
for Canadian orders is $4.00 or 5% of order. APO & FPO orders add $3.00 or 5% 
of order. Shipping for all other foriegn orders is $1 0.00 or 1 5% of order. 
.Ail prices subject to change. 

CIRCLE #111 ON READER SERVICE CARD 



^^^^^ 



COMING SOON 

FOR THE 8-BIT SERIES 
Shiloh - SSI 
Dungeon - Datasoft 

FOR THE ST 
Bard's Tale - Elec Arts 
Breacti - Omnitrend 
Defender of the Crown 
Gunship - MIcroprose 
Rings of Zllfin - SSI 
Shard of Spring - SSI 
Wizard's Crown - SSI 

TEVEX 

4205 First Avenue, Suite 100 

Tucker, GA 30084 

404-934-5059 



I 



Alternate Reality $40 $27 

Fight Night $30 $20 

Flight Simulator II $50 $33 

FS II Seen Disks (each) $20 $15 

Guderian NEW $30 $20 

Hacker $15 $12 

Hardball $30 $20 

Leader Board $40 $27 

LB. Tournament Disk $20 $15 

Mercenary $30 $20 

Mercenary-2nd City $15 $12 

Micro League Baseball $40 $27 

MLB 1986 Team Disk $20 $15 

Music Studio $35 $23 

Never Ending Story $30 $20 

Pawn NEW $45 $30 

Spy vs Spy I & II $15 $12 

Triple Pack $20 $15 

221 -B Baker Street $30 $20 

221 -B Case Library $15 $12 

Universe $90 $70 

Tevex Blank Disks 

Rnx nf 10, 5 1/4" DSnn nnly $12 



UTILITY 



Q 



M/L Editor 



For use in machine language entry 



by Clayton Walnum 



M/L Editor provides an easy method to en- 
ter our machine language Ustings. It won't al- 
low you to skip Unes or enter bad data. For 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch: it's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC hsting. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press Y to delete the file, or N 
to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a hst of 
BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the Une you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 



When you finish a line, M/L Editor will 
compare the entries' checksum with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cuisor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk). 

That's M/L Editor. Use it in good health. H 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For further in- 
formation, see the BASIC Editor II, in 
issue 47. 



Listing 1. 
BASIC listing. 



AZ 1« PIH BFC16),II$C4),«<U>,B$C1),F$I15) 

.FlSClSI 
LF 11 DIH HaD$C4) 
BN Za LINE=ieae:RETRN=lSSlBACK5P=lZeiCHKS 

UK=e:EDIT::e _ 

GO 3* G05UB 45S:pasiTIDII !•.«■? "Start or 
Sontinue? ";:G09U8 5«ai? CHRSlAI 



ZG 4a POSITION 18,8;? "FILENAHE") ilMPUT F 

$:POKE 752,1!? " ■' 
FE 58 IF LENCF$)<3 THEN POSITION 28,101? 

" "IGOTO 48 
NF 68 IF FSC1,2J<>"D!" THEN F1*="H"IF1»« 

3J=:FS!G0T0 88 
KL 78 F1S=F$ 

TN 88 IF CHR$CA]="S" THEN 128 
FD 98 TRAP 43e:aPEN tt2,4,e,Fl$:TRAP 118 
HO 180 FOR K-l TO 16:GET n2,A:NEXT X:LINE 

=LINE«ie:GOTO IBS 
HH 118 CLOSE n2:0PEN l>Z,),a,Fl$:G0T0 178 
VT 128 TRAP 168:0PEN tt2,4,0,Fl$:60SUB 448 

:POSITiaN 10,18:? "FILE ALREADY EXISTS 

! !":P0KE 752,8 
ZU 1J8 POSITION 18,12;? "ERASE IT? "i!GOS 

UB 58e;PaKE 752,1:? CHRStAl 
VH 148 IF CHRSCA)="N" OR CHR$«AJ="n" THEN 

CLOSE n2:GOT0 38 
OG 158 IF CHR$CA><>"Y" AND CHR$CA)<>"y" T 

HEN 138 

BH 160 CLOSE tl2:0PEN lt2,8,8,Fl$ 

IE 178 GOSUB 458:PaSITI0N 18,1;? ■'CEEEEI 

\SSni: ";LINE:CHKSUM=e 
GH 168 L1=3:F0R X'l TO 16;P0SITlaH 13KCX< 

le)tl2M|X>9},X42:PaKE 752,8!? "BYTE II" 

;x;": "; :G0SUB 310 
KH 170 IF EDIT AND L=e THEN BYTE=BF(X) :G0 

TO 218 
FY 288 BYTE=VALCN$) 
OZ 281 HOD$=NS 

BU 210 POSITION 22,K+2:? BYTE;" " 
YZ 228 BF(X]=BYTE:CHKSUn=CHKSUH«BYTE«X:IF 

CHKSUH>7979 THEN CHKSUn=CHKSUH-l«eoe 
HS 238 NEXT X:CHKSUM=CHKSUIHLINE:IF CHKSU 

N>S3S7 THEN CHKSUK=CHKSUH-iae88 
IG 248 POSITION i2,Xt2;P0KE 752,8:? "CHEC 

KSUH; "; :L1=4:G0SUB 318 
EH 258 IF EDIT AND L=8 THEN 278 
an 268 C=VALCN$) 
SY 278 POSITION 22,X+2!? Ci" 
IL 288 IF C=CHKSUM THEN 388 
DI 270 GOSUB 448:EDIT=1;CHKSUH=8:G0T0 188 
LH 388 FOR X=l TO 18: PUT 112, BF (X) ; NEXT X; 

LINE=LINEtlO:EDIT=0:GOTO 178 
FV 318 L=e 
LG 328 GOSUB 588: IF A=ASCC"0"> AND X=l AN 

D NOT EDIT THEN 428 
PO 338 IF AORETRN AND AOBACKSP AND CA<4 

8 OR A>57) THEN 328 
DX 331 IF A=RETRN AND N$="" THEN N$=HOD$ 
TD 335 IF A=RETRN AND L=a AND X>1 THEN 35 

8 
JR 348 IF (IA=RETRN AND NOT EDIT] OR A=B 

ACKSP] AND L=e THEN 328 
DH 358 IF A=RETRN THEN POKE 752,1;? " ":R 

ETURH 
GG 368 IF AOBACKSP THEN 488 
SA 378 IF L>1 THEN N$=N$tl,L-l) :GOTO 3Sa 
AS 388 NS="" 

RE 338 ? CHR$CBACKSP)::L=L-1:G0T0 328 
BB 4aa L=L+l:IF L>L1 THEN A=RETRN;GOTO 35 

8 
HX 418 N$CL)=CHRSCA) ;? CHRSCA] ; ;G0TO 328 
KN 420 GRAPHICS 8: END 
VT 430 GOSUB 44e:P0SITI0N 18,18:? "NO SUC 

H FILE!":FOR X=l TO 1808: NEXT X: CLOSE 

112: GOTO 38 
FD 448 POKE 718,48:S0UND a,18e,12,a:F0R M 

=1 TO 5a:NEXT X;SOUND e,8,8,e:RETURN 
HY 458 GRAPHICS 23:P0KE 16,li2:P0KE 53774 

,112:P0KE 557,8:PaKE 718,4 
XR 468 DL=PEEKCSe81«256»PEEKC561]44:P0KE 

DL-1,78:P0KE DL42,6 
HH 470 FOR X=3 TO 39 STEP 2:P0KE DLtX,2;N 

EXT X:F0R X=4 to 48 STEP 2:P0KE DL4x,e 

:NEXT X 
ZH 488 POKE DL«41,65:P0KE DLt42. PEEK (568) 

:P0KE DL443,PEEK(S61] :POKE 87,8 
AC 498 POSITION 2,8:? "analog Hi editor": 

POKE 5S9,34:RETURN 
HZ 588 OPEN ni,4,8."K;"!GET lll.AlCLOSE 111 

: RETURN 
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Speed King 



MASTERTRONIC 
731 IB Grove Road 
Frederick, MD 21701 
48K Disk $9.99 



by Matthew J.W. Ratcliff 

Speed King is a smooth-scrolling mo- 
torcycle racing simulation. It pits you 
against nineteen other world-class motor- 
cycle riders on one of ten famous race- 
tracks, which you can select. 

The screen photos on the box promise 
an exciting motorcycle version of the ever- 
popular Pole Position from Atari. It looks 
promising, but falls apart when you hit 
the track — frequently. 

The program comes in both Atari and 
Commodore versions, on the same side of 
the same disk. The Atari version is auto- 
booting, while Commodore owners just 
load and run. (I have no idea how they 
achieve such a neat trick; I didn't think 
the disk formats were at all compatible.) 

You can change your racetrack selec- 
tion at the title screen by pressing the OP- 
TION key. The tracks are shown in a nice- 
ly done graphics window at the top left 
of the display. They're presented in an 
overhead view, showing your racing di- 
rection and all the treacherous curves 
you'll never make. You can hit the SPACE 
BAR to preview any of the tracks, or RE- 
TURN to practice them. The ESCAPE key 
allows you to set up a 2-, 4- or 6-lap race. 
When you're ready to crash and burn, 
pressing START, with a joystick in port 
2, gets you into the game. 

You begin in the middle of a racetrack, 
behind nineteen other pros, with a rear 
overhead view of your cycle and rider. You 
must slap your way through six — count 
'em, six — gears on your way up to a top 
speed of 250 miles per hour. As the 
joystick is moved left or right, the rider 
leans into the turn. The lateral control of 
the cycle is poor to nil, making this game 
virtually impossible to enjoy. 



If you make no attempts to control your 
machine, the program forces you to stay 
within the general vicinity of the track 
(like Pole Position), with no Joss of speed 
(if you keep jamming on the accelerator 
fire button), contrary to the game's de- 
scription. If you ride out on the lawn 
long enough, the game decides you don't 
know what you're doing, and you crash. 
(Pole Position has road signs to keep you 
in line, or to crash against; also, when you 
hit the track's edge, you slow down and, 
realistically, gain increased traction — but 
not in this imitation.) At different diffi- 
culty levels in the game, the only appar- 
ent change is in the amount of time the 
program will let you ride your machine 
on the lawn before you crash. It's fairly 
easy to get the hang of taking the curves, 
even at high rates of speed, but passing 
other riders seems virtually impossible. 

The optimum play strategy for Speed 
King appears to be to match the other 
riders' speed. As you slowly catch up to 
the rear of the pack, tapping the fire but- 
ton speed control and downshifting helps 
slow your cycle. Approaching the pack at 
more than a mile or two per hour faster 
than the rest is always deadly, since lateral 
movement is so difficult. Apparently, all 
the other pros are fairly evenly matched, 
because it seems that all nineteen riders 
are stacked in a very tight pack when it 
comes time to pass them. 

As you begin to pass, it becomes imme- 
diately apparent that this game is an ex- 
ercise in futility. If you go too slowly, 
trying to achieve some "bite" on the track 
to move left or right, some clown mows 
you down from behind — and keeps on 
going (a really accurate simulation!) If you 
go too fast, you nail someone because you 
can't steer out of his way (you crash and 



burn; he keeps on going). By closely 
duplicating the others' speed, you can 
gradually weave in and out of the pack. 

The graphics and sound effects are 
pretty well done. The scrolling and 3D 
racetrack effects are almost as well done 
as those of Atari's Pole Position. This 
game could be as addictive too. if it had 
more playability. 

Contrary to Steve Panak (ANALOG 
Computing 48's Panak strikes!), I liked 
Kikstart. On the 3D smooth-scrolling 
screen, you could ride your cycle up and 
down, and around objects — and even 
jump ramps, in an effort to accumulate 
forty items to complete a treasure and par- 
ticipate in a final drag race. This game 
had good joystick response and control. 
Although it was an old game in a new for- 
mat, I found it rather fun to play and 
worth the affordable price of $9.99. 

That was why I was hopeful Speed 
King would be a much faster, more action- 
oriented game. But, in coming out with 
a fast action game, Mastertronic has lost 
all control in this game. You just can't do 
much of anything with it. The company 
had better come up with some more 
documentation and original approaches 
(have you ever noticed how many differ- 
ent motoTcyde games they put out?) if 
they would like to stay in the software 
business. H 

Matthew HatcJi// is an EJecfricai Engi- 
neer in St. Louis, Missouri. When not us- 
ing his spare time to write articles, he's 
president of ACE St. Louis and a remote 
SYSOP on the Gateway City BBS, (314] 
647-3290. 
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NX-10 Printer 



STAR MICRONICS, INC. 
200 Park Avenue, Suite 3510 
New York, NY 10166 
(212) 986-6770 
$349.00 

by Greg Knauss 

It's been said thousands of times. . .At 
the risk of being redundant, I'll say it 
again: word processing is one of the most 
powerful and useful functions available to 
Atari owners. And this is all fine and good 
— until you realize you need to carry the 
silly computer around to show anybody 
what you've written. Enter printers. 

There are literally dozens of printers 
available for Atari computers, one of 
which is the Star Micronics NX-10. From 
excellent quality to low price, to complete 
documentation, the NX is the best all- 
around value I've run into in a long time. 

First, and probably most important, is 
print quality. This is w^here most inexpen- 
sive printers fall dovm — a low price usu- 
ally guarantees very "computerlike" print- 
ing: letters made up of little dots. Though 
that's acceptable for program listings, 
friendly letters and personal printouts, it's 
almost never used in professional cor- 
respondence or business letters. 

Although the NX-10 does have a good 
draft mode — a slight improvement over 
its most famous predecessors, the Gemini 
lOX and the Epson 80 — it solves the qual- 
ity problem with a hot item among nevi^ 
printers: Near Letter Quality (NLQ). NLQ 
is an attempt by a dot-matrix printer to 
imitate a daisy wheel or typewriter. The 
NX NLQ mode surpasses any other I've 
seen at the price. It is excellent, complete- 
ly suitable for all but the strictest require- 
ments. 

Though the NLQ miode is the highlight 
of Star's new printer, they have by no 
means left out other important features. 
Its pTiivtmg capabilities are more than 
rounded out by: itaUcs, pica, elite, sub- 
script cind superscript fonts; condensed, 




expanded, proportional, emphasized and 
bold printing: underlining; reverse line- 
feeds; two IBM, twelve international (in- 
cluding ancient Greek) and infinite down- 
loadable character sets; single-through 
quad-density graphics; and a whole slew 
of other graphic and positioning com- 
mands. Graphics dumps are possible, and 
easily accomplished with any program 
written for Epson or Gemini printers. The 
NX leaves no stone unturned; it can be 
configured to anybody's preferences. 

It's also easy to use. The NX is report- 
ed to be 100-percent Epson compatible, 
so it should have no problem working 
with any program written for Epson print- 
ers. The CTRL-J command that has caused 
so much trouble for Star owners in the 
past has been changed to match Epson's 
'l/216th-inch linefeeds. Also, when listing 
programs, the NX will convert all inverse 
characters to italics, making the printout 
much easier to read. 

Along with NLQ , the printer also has 
another feature new to inexpensive print- 
ers: push-paper feeding. By pushing the 
paper past the printhead, it prevents the 
waste of a whole sheet of paper in start- 
ing at the top of the page. This is the sort 
of thing you don't appreciate unless you 
have never had it; and it is appreciated. 
As would be expected, the NX accepts 
both tractor- and friction-fed paper. 

While all that's mentioned above makes 
the NX a great printer. Star went even fur- 
ther. They made features that are option- 
al or not available on most printers stan- 
dard on the NX. A 5K buffer is built in. 
There's a dip switch, to change from a reg- 
ular zero to a slash zero. The NX-10 has 
an extensive control panel, and an extra 
fuse is even included! There are dozens 



of pleasant surprises waiting in the NX 
box. 

The manual is excellent. It speaks to the 
beginner with topics ranging from where 
to put the printer, to how to print in BA- 
SIC, to how to create your own character 
sets. In one appendix, all the function 
codes are comprehensively detailed for 
quick reference. If you stop in at your 
dealer, ask to see the manual. Check out 
Appendix D to get an idea of this printer's 
capabilities. 

While the manual is excellent overall, 
I have to mention that it doesn't have an 
index, and the table of contents only has 
page mmibers for the main subject of each 
chapter, not the individual items covered. 
These are annoying oversights, to say the 
least. 

The NX does have a few other down 
points, too. On previous Star printers, the 
draft-quality character set was a copy of 
the Epson draft mode. The NX uses 
rounder letters for these printouts, to make 
them look better. While this is generally 
successful, some of the characters, espe- 
cially the uppercase A, G, Q and the aster- 
isk, look sort of funny, with A being the 
worst. 

All in all, the feature-packed NX-10 is 
an excellent value for almost anyone who 
needs a printer, either casually or profes- 
sionally. Star has a winner here, a combi- 
nation of quality and price that will be 
hard to beat. H 

Greg Knauss is a freshman at the Uni- 
versity of California, San Diego. He miss- 
es home, and Kelly, terribly. He's involved 
in journalism and drama, as well as com- 
puters. 
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LOWEST PRICES ANYWHERE - BEST SERVICE - WE ARE YOUR ATARI CONNECTION 







30% OFF LIST 

ON 

ST SOFTWARE 



- ATARI ST - 



520ST 

520ST MONO SYSTEM 

520ST COLOR SYSTEM ., 

1040ST 

1040ST MONO SYSTEM... 
1040ST COLOR SYSTEM., 

SF354 

SF314 

■SHD204 

SM804 

SM124 

SC1224 

SX212 

PS300 



DEALER 

$ 330 
600 
750 
515 
750 
900 
135 
188 
600 
165 
135 
285 
75 
425 



YOU 
PAY 

$353 
642 
802 
551 
802 
963 
145 
201 
642 
177 
145 
305 
80 
455 



(Computer System includes ST-CPU, Disk Drive and Monitor.) 



ATARI ST 

At 7 % Over Dealer cost 
Plus FREE SHIPPING 

FULL MANUFACTURER'S WARRANTIES 

IMMEDIATE REPLACEMENT on 

ALL DOA DEFECTS 

^i7iWoTmTiiB7iTi7GUARANTEErifflWi'wmTfi)Wimg 

g We Guarantee our Prices to be the g 

I LOWEST Anywhere | 

1 If You See any Item Advertised in S 

S this Issue for Less than our Price =; 

I We Will MATCH that Price - | 

if and Give you FREE Shipping § 

CERTIFIED CHECK OR MONEY ORDER ONLY! 
NO. CREDIT CARDS OR COD AT THESE PRICES 



MS. EM $70 

MS. EM PLUS 57," 

IBM DRIVE 275 

MAC SAC PLUS $120 



CABLES 

PRINTER 12 

MODEM 12 

DISK DRIVE - 6' 15 ATARI ST MOUSE 

COMP MONITOR 20 MOUSE MAT 



AC STRIP 6 OUT 

PRINTER STAND 

MONITOR SWITCH 

(SELECT EITHER 
OR COLOR MONITOR) 

RGB MON ADAPTER 

(USE 3rd PARTY RGB 
MONITOR ON ST) 



15 

10 

50 

MONO 

50 



D/SK5 



520.. 



3.5 SS, DO (Box 10) 14 

3.5 OS, DD (Box 10) 19 1**° 

354/314. 

DISK HOLDERS 

FLIPSORT MICRO 9 

(HOLDS 60, 3.5" DISKS) 

JOVSTfCKS 

CS30 6 

WICO MAX 9 

WICO BOSS 13 

WICO BAT 17 

WICO 3-WAY 20 

SLIKSTIK....: 6 

KRAFT SWITCH 9 

TAC2 11 

TAC 3 13 

TAC 5 14 

500XJ 13 

QUICKSHOT 2 9 

SUNCOM ECONO 5 

ACCESSORIES 
REALTIZER $140 

COLOR DIGITIZER 
SOUND DIGITIZER 105 

NAVARONE 
1 MEG ST UPGRADE 55 

(NO RAM) 

CLOCK CARTRIDGE 35 

INTERNAL CLOCK 

520 45 

1040 55 

256K MEM CHIP 4 

SUR SUPP 5 OUT 20 



6 

6 

6 

5203 PC 12 

1040-2 PC 12 

124/1224 6 

MODEMS 

HABA 1200 120 

ATARI 300 40 

ATARI 1200 80 

AVATEX 1200 80 

AVATEX 1200HC 120 

HAYES 1200 370 

HAYES 2400 550 

CAPETR 1200 HC 115 

COURIER 2400... 379 

DISK/MONITOR 

CLEANING KIT 14 

PRINTERS 
EPSON 

LX86 $220 

TRACTOR 30 

FX86E 350 

FX286E 490 

LQ800 490 

TRACTOR 45 

CS FEEDER 95 

LQIOOO 590 

TRACTOR 55 

EX800 425 

COLOR OPT 70 

EXIOOO 560 

COLOR OPT 70 



PANASONIC 

10801 210 

10911 250 

10921 350 

STAR MICRONICS 

NPIO 180 

NXIO 220 

NX15 340 

seikosha 

spioooa iso 

ok;data 

182P 195 

192 + P 350 

193 + P 530 

PROiVRfTER 

C310XP 490 

C315XP 590 

MONITORS 

12" GREEN 80 

13" COM COLOR 170 

1702 190 

1802C 210 

ST SOmVARE 

DAC PAYROLL $35 

DAC ACCOUNTING 49 

lOTH FRAME 28 

AEGIS ANIMATOR 56 

ALT REAL: CITY 28 

ARTIC FOX 32 

ASSEM PRO 42 

BAL OF POWER 35 

BALLY HOO 28 

ML BASEBALL 39 

BRATACCAS 32 

BRIDGE 4.0 21 

CARDS 28 

CHAMP WRESTLING 28 

CHESS MASTER 2000 32 

COMPUBRIDGE 21 

COPY II ST 28 

CORNERMAN 35 

CRYSTAL CAVES 19 

DATA MGR ST 55 



DATA TRIEVE 35 

DB MAN 105 

DOS SHELL 28 

EASY DRAW 55 

EIGHT BALL 28 

ENCHANTER 28 

FLIGHT SIM II 35 

FOREM BS 45 

GATO 35 

GFA BASIC 55 

GFA COMPILER 55 

GFL FOOTBALL 28 

GRAPHIC ARTIST 140 

HACKER 2 35 

HARRIER STRIKE 35 

HIGH ROLLER 35 

HITCHHIKERS GUIDE 28 

JOUST 19 

KARATE KID 2 28 

KINGSQUEST 35 

KINGSQUEST 2 35 

KINGSQUEST 3 35 

LABELMASTER 28 

LB GOLF 28 

LEATHER GODDESS 28 

MAJOR MOTION 28 

MARK WILLIAMS C 126 

MATCH POINT 28 

MEAN 18 GOLF 32 

MEAN 18 COURSE 13 

MEGAFONT 28 

MEGAMAX C 160 

MERCENARY 28 

MICRO C-SHELL 35 

MICRO C-TOOL $18 

MICRO MAKE 22 

MICRO MT C-SHELL 90 

MICRO RTX 49 

MINDSHADOW 35 

MOONMIST 28 

MUSIC BOX 35 

MUSIC STUDIO 42 

N-VISION 28 

NEOCHROME 19 

NINJA MISSION 14 

OGRE 28 

PAINT PRO 35 

PAINTWORKS 50 



PAWN 32 

PCB DESIGNER 120 

PERSONAL PASCAL 52 

PHANTASIE 28 

PHANTASIE 2 28 

PLANETFALL 28 

PRINTMASTER + 28 

PUBL PARTNER 99 

RAID 24 

REGENT BASE 69 

REGENT WORD 2 69 

RENEGADE 14 

ROGUE 28 

RUBBER STAMP 28 

SDI 35 

SHANGHAI 35 

SHUTTLE II 28 

SILENT SERVICE 28 

SKYFOX 32 

SPACE QUEST 35 

ST POOL 19 

ST SHUFFLEBOARD 19 

STTALK 13 

STAR FLEET 1 32 

STAR RAIDERS 19 

STARGLIDER 32 

STRIP POKER 28 

SUNDOG 28 

SUPER CYCLE 28 

SUPER HUEY 28 

SWIFT CALC 55 

TEXT PRO 35 

TEMPLE TRILOGY 28 

TIME BNDITS.-. 28 

TRIM BASE 64 

TRINITY 28 

TYPESET ELITE 35 

ULTIMA 3 48 

UNIVERSE 2 49 

VIP LITE 75 

VIP PRO (GEM) 140 

WANDERER 28 

WINTER GAMES 28 

WORD WRITER ST 55 

WORLD GAMES 28 

WRITE 90 21 

ZORK TRILOGY 45 

ZOOMRACKS II 69 



SIDE-LINE COMPUTER 

86 RIDGEDALE AVENUE 
CEDAR KNOLLS, NJ 07927 



NO TELEPHONE ORDERS 

CALL FOR PRICING OF OTHER ITEMS 
(201) 455-7844 



WE DO NOT CARRY CLOSEOUT OR DISC ITEMS - APO & FPO CHARGED ACTUAL SHIPPING 
NJ RESIDENTS ADD 6% SALES TAX - FREE SHIPPING IN CONTINENTAL UNITED STATES 
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GAME 




The classic 

gets an update 

to keep you mesmerized. 

by James Hague 

•; I 

■i Back in 1970, before the home computeii industry had tak- 
en off, a mathematician by the name of John Horton Con- 
way created a program known simiply as Life. Life mathe- 
matically simulated the formation and destruction of colo- 
nies of "cells." The almost-limitless possibilities introduced 
b^' this rather simple program captured the imagination of 
practically everyone who "just wanted to try it once." Over 
the next few years, wherever a computer existed. Life — in 
ope form or another — was sure to be found. ANALOG Com- 
puting published an ST version in issue 49. 

Now it's the eighties. Life can be found floating around 
in various public domain libraries, as well as in most col- 
lege and university computer labs. The concept behind the 
"game" is just as enticing as it was back in 1970, but in- 
credibly slow BASIC programs with Xs representing cells 
just don't cut it anymore. Simply determining the outcome 
of a single colony of cells may take anywhere from several 
minutes to several hovirs, depending on the quality of the 
implementation . 

Finally, Life has been given a complete overhaul, in an 
effort to bring it up to par for this decade. Herein, I present 
iife in the Fast Lane. 

Typing it in. I 

Listing 1 is the BASIC data for Life in the Fast Lane. Do 
not type this as if it were a BASIC program. Instead, use 
Clayton Walnum's M/L Editor (see page 41) as a means to 
get all of those numbers safely locked away in a binary file 
on disk. If you name the resulting file AUTORUN.SYS and 
■"place it on a disk containing DOS. SYS (DUP.SYS isn't neces- 
sary], Life in the Fast Lane will automatically load and run 
when your computer's turned on. XL and XE ovwiers should 
hold down the OPTION key during power-up, in order to 
disable BASIC. If you choose a different filename, use op- 
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Life 
in tlie ) 

Fast 
4-ane- 



tion L from the I OS menu to get the program up and ni i- 
ning. 

Listing 2 for tMis offering is included, for those who a a 
interested in assembly languag e programming. You do n jt_ 
need to type it in. 

Creating a colony. 

Plug a joystick into port 1, and you're ready to begii . 

First of all, note that the screen is divided into three dis- 
tinct sections. The upper portion contains vital informa- 
tion about the cell colony. The center of the screen is where 
the actual cells are located. And at the very bottom is a mes- 
sage line which will relay important information to you 
from the computer. 

The joystick controls the flashing square cursor located 
in the center of Ijhe board. Pushing the joystick in any of 
the eight standar(| directions will slide the cursor in the cor- 
responding direction. 

To place a cell on the board, press the trigger and, with 
a ding, a cell will appear Press the trigger again and the 
cell will instantly vanish. You can hold down the trigger 
while moving around, in order to "draw" lines of cells. Cells 
can be placed on:any of the 256 board squares, but the real 
fun is in decidirfg exactly which ones. 

What you're actually doing is creating the first "genera- 
tion" of your cell colony. When you're satisfied with the 
colony's architecture, a quick press of the START key will 
crank up the "Life" computer, which will determine the fu- 
ture of the cells. 

There are tw^o other keys that are active during the edit- 
ing process. The SELECT key will change the current mode 
as displayed on the far right of the second line from the top 
of the screen. The mode determines exactly how the cells 
will be regenerated, but don't worry about it for now. Press- 
ing ESC (ESCape] instantly erases all cells from the board, 
providing a cleab slate to work with. I 

I 
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Let there be Life. 

Once START has been pressed, the real fun begins. This 
program is similar to Joel Gluck's Bounce (the original of 
which appeared in Our Game, issue 15), in that you're 
responsible for setting things up, but are nothing more than 
an iimocent bystander once control is relinquished to the 
computer. It is this aspect — sitting back and watching your 
creation — that's responsible for the popularity of both the 
original Life and the more recent Bounce. (In its three 
incarnations, Bounce has become one of ANALOG'S most 
popular programs). 

The cell colony is regenerated according to a few simple 
rules. First, a cell that is surrounded by fewer than two or 
more than three neighboring cells will be killed. Next, if 
an empty square is bordered by exactly three cells, a new 
cell will grow in the empty spot. Finally, if a cell is a neigh- 
bor of two or three other cells, that cell will survive. Figure 
1 shows a small cell colony and how it would regenerate 
according to these rules. Note that each square on the board 
is bordered by eight others. These simple rules can trans- 
form your colony into a thriving populace — or, just as eas- 
ily, crumble it into dust. 

Figure 1. — Sample cell regeneration. 
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GENERATION 3 — STABLE POPULATION 



The cell colony will continue to regenerate until one of 
four things happen: (1) you press a console key (START, 
SELECT or OPTION) to turn off the Life computer and re- 
turn to the editing screen; (2) the cell colony reaches a sta- 
ble population — meaning that, according to the 
aforementioned rules, no cells will grow or die — in this 
case, you'll be returned to the editor; (3) the cell colony re- 
peats — meaning that it continually grows and dies in a 
short pattern — press a console key to abort; and (4) the cell 
colony completely dies out. 

Pressing the SPACE BAR while the Life computer is run- 



ning will temporarily pause things until a dij^erent key is 
pressed. 

Statistics and modes. 

The information at the top of the screen supphes you with 
statistics — some vital, some frivolous — about the current 
colony. On the very top line is the number of the current 
generation. While editing tlie board, this will be I. While 
the Life computer is rmining, it's important to note that the 
generation number is incremented after changes are made 
to the current generation. 

The second line contains more statistics. The first value 
is the current cell population. Obviously, when it reads 0, 
the colony is no more. The maximvmi population is limited 
by the number of squares on the board, and is therefore 256. 
The next value is the mmiber of cells that originally start- 
ed out in the colony. This is used to determine just how much 
a certain colony has reproduced. For instance, if the start- 
ing population is 40 and the current population is 120, then 
there's been a threefold increase in the number of living cells. 
The next-to-last value is for the most cells that have been 
recorded so far, or, in other words, the highest population. 
Finally, we come to a three-letter mnemonic, which rep- 
resents the current mode the Life computer is in. This is the 
mode selected while editing the screen. I realized that some 
people may want to change modes midway through the life 
of a cell colony, so I added a special feature to allow this 
capability. 

As you already know, pressing a console key will abort 
the Life computer and allow you to edit the board. The catch 
is as follows: the cell statistics are only reset if you make 
a change to the colony. This lets you shut down the Life com- 
puter, switch modes and restart, without affecting the colo- 
ny in any way. The foUovifing modes have been provided: 
RGN — ReGular Noisy. In this mode, cell growth/ 
death is animated and is accompanied by pleasant- 
sounding chords. Each generation lasts for about one 
second. 

RGQ — ReGular Quiet. This is the same as RGN, ex- 
cept that the sound is turned off. 

SSN — Single Step Noisy. In this mode, after each 
generation you will be prompted to press the joystick 
trigger, in order to progress to the next generation. This 
allows you to watch exactly how the fate of each cell 
is determined. You can hold down the trigger to speed 
through successive generations. 

SSQ — Single Step Quiet. This is the same as SSN, 
except that the sound is turned off. 

EST — FaST. This mode really shows the speed and 
power of machine language. Both the animation and 
sound effects are bypassed, thus simplifying the Life 
computer's task immensely. This mode can speed 
through about twenty or so generations per second, so 
the screen really appears to be alive! There are two ma- 
jor uses for this mode: if you want to quickly find out 
exactly how many generations a colony will survive, 
or if you want to get the big picture of the birth and 
death of a colony. 



Exploring Life. 

It's easy to spend hours upon hours experimenting 
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Life in the Fast Lane. There are, for all practical purposes, 
an infinite number of possible cell colonies. So here are a 
couple of ideas and observations I've made after a few hours 
experimentation, to get you started. 

Once you get Life in the Fast Lane up and running, I know 
you'll want a quick demonstration of its power, so here's a 
simple one. Draw a horizontal row of cells across the screen 
about midway between the top and bottom, and turn on the 
Life computer. Within seconds, the population will have 
more than quadrupled, forming one large colony. This colo- 
ny will spread outward, eventually breaking up into sever- 
al subcolonies. Finally, around generation 33, six small, 
infinitely-repeating colonies will be formed. Press a con- 
sole key to stop. Try this in each of the different modes, to 
gain a better understanding of how and when to use each 
one. 

It won't take long to be able to identify certain small 
groups of cells that either repeat or are stable. A block of 
four cells is a stable configuration. A row or column of three 
cells will repeat forever and ever. There are many other such 
patterns, but you should be able to pick up on them after 
logging in a few hours with your Atari. 

The ultimate goal of all Life enthusiasts is to develop a 
colony that survives infinitely, without getting stuck in a 
pattern. This feat is probably impossible, but that doesn't 
seem to have stopped people from trying. Colonies have 
been devised that can last for around 300 generations, but 
not much progress has been made beyond that point. If you 
ever get a colony going that surpasses the 300th generation 
or higher, I want to know about it! 

It's amazing how realistically some colonies behave. They 
start as a small clump and move outward from this posi- 
tion, as if new territory is being explored. Sometimes a 
small subcolony will be started, in an effort to colonize the 
area more fully. More than once, I've had several small colo- 
nies created, only to be destroyed by a larger colony that 
"attacks" each one in sequence. 

Many people claim that the behavior of certain cell colo- 
nies represents real-life beliefs or morals. I'm not going to 
agree or disagree with this idea, but it is a fact that a cell 
colony fashioned in the shape of a swastika, if correctly posi- 
tioned, will die within four generations. 

Go ahead and type in Life in the Fast Lane. Maybe you'll 
see pretty little pulsating creatures on a computer screen; 
maybe you'll see more. . . PI 

James Hague attends North Texas State University and 
is a member of the Dallas Atari Computer Enthusiasts. He 
has been programming an Atari 800 in both BASIC and as- 
sembly language since 1982. 

Listing 1. 
M/L Editor data. 



1QQ8 DftTft 255,255,9,32,251,32,216,32,5 

4,32,32,106,32,32,4,42,9134 

1910 DATA 32,107,33,32,110,36,32,203,3 

8,76,13,32,216,165,128,48,3532 

1020 DATA 24,169,0,133,77,32,114,35,32 



,86,0(5,165,128,208,10,32,2320 

1030 DATA 16,36,230,135,165,135,141,19 

9,2,76,98,228,32,101,228,32,6916 

1040 DATA 86,32,169,0,133,12,169,32,13 

3, 13, 162, 255, 134, 128, 134, 133, 7714 

1^50 DATA 232,134,132,160,22,162,32,16 

9,7,76,92,228,169,3,141,15,4409 

1060 DATA 210,169,0,141,8,210,141,1,21 

0,141,3,210,141,5,210,96,6909 

1070 DATA 162,0,189,0,224,157,0,8,189, 

0,225,157,0,9,189,0,2946 

1080 DATA 226,157,0,10,189,0,227,157,0 

,11,232,208,229,162,63,189,9822 

1090 DATA 152,32,157,16,8,202,16,247,1 

69,8,141,244,2,96,0,0,2631 

1100 DATA 0,255,0,0,255,255,255,255,0, 

0,255,0,0,0,208,208,7493 

1110 DATA 208,208,208,208,208,208,11,1 

1,11,11,11,11,11,11,0,0,6402 

1128 DATA 0,15,8,8,11,11,0,0,0,240,16, 

16,208,208,11,11,52 

1136 DATA 8,8,15,0,0,0,208,208,16,16,2 

40,0,0,0,134,129,1337 

1140 DATA 132,130,160,0,177,129,201,25 

5,240,6,153,184,13,200,208,244,3222 

1150 DATA 169,0,192,40,176,6,153,184,1 

3,200,208,246,96,160,14,162,9161 

1160 DATA 80,165,252,32,247,33,144,32, 

44,33,165,143,76,44,33,160,4067 

1170 DATA 61,162,16,165,139,32,44,33,1 

65,138,76,44,33,160,66,162,4202 

1180 DATA 80,165,139,32,44,33,165,138, 

76,44,33,160,71,162,16,165,4290 

1190 DATA 141,32,44,33,165,140,72,134, 

136,74,74,74,74,5,136,153,4086 

1200 DATA 0,12,200,104,41,15,5,136,153 

,0,12,200,96,160,76,166,4851 

1210 DATA 142,189,92,33,153,0,12,200,1 

89,97,33,153,0,12,200,189,5649 

1220 DATA 102,33,153,0,12,96,114,114,1 

15, 115, 102, 103, 103, 115, 115, 115, 5250 

1230 DATA 110,113,110,113,116,169,0,13 

3,142,141,47,2,32,132,33,32,1506 

1240 DATA 148,33,32,169,33,32,237,34,1 

69,62,141,47,2,96,162,0,2570 

1250 DATA 134,138,134,139,134,140,134, 

141,134,144,232,134,143,96,162,8,8761 

1260 DATA 189,160,33,157,192,2,202,16, 

247,96,24,24,24,24,200,86,3769 

1270 DATA 0,0,0,162,0,138,157,0,12,157 

,240,12,232,224,240,208,1387 

1280 DATA 245,162,10,189,86,34,157,2,1 

2,202,16,247,162,35,189,97,6635 

1290 DATA 34,157,21,12,202,16,247,169, 

101,133,129,169,12,133,130,162,8182 

1300 DATA 15,169,66,157,82,12,169,67,1 

57,166,13,160,0,169,69,145,5537 

1310 DATA 129,160,17,169,68,145,129,16 

5,129,24,105,20,133,129,165,130,6805 

1320 DATA 105,0,248,33,243,34,133,130, 

202,16,218,160,70,140,81,12,6264 

1330 DATA 200,140,98,12,200,140,165,13 

,200,140,182,13,169,54,141,48,6445 

1340 DATA 2,169,34,141,49,2,169,133,14 

1,0,2,169,34,141,1,2,632 

1350 DATA 169,192,141,14,212,32,247,32 

,32,5,33,32,19,33,32,33,8421 

1360 DATA 33,76,67,33,112,112,112,198, 

0,12,130,134,112,6,6,6,362 

1370 DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6, 

134,112,5802 

1380 DATA 2,65,54,34,39,37,46,37,50,33 

,52,41,47,46,26,48,7102 

1390 DATA 111,112,117,108,97,116,105,1 

11,110,0,51,116,97,114,116,105,4532 

1400 DATA 110,103,0,0,0,0,45,111,115,1 

16,0,0,0,0,0,45,5834 

1410 DATA 111,100,101,72,169,10,141,23 
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,208,141,16,212,169,154,141,0,6792 

1420 DflTfl 2,169,34,141,1,2,104,64,72,1 

69,138,141,22,208,141,10,4784 

1430 DATtt 212,169,136,141,23,208,169,1 

80,141,0,2,169,34,141,1,2,2720 

1440 DflTft 104,64,72,159,70,141,22,208, 

141,10,212,165,134,141,23,208,8648 

1450 DftTfl 169,206,141,0,2,169,34,141,1 

,2,104,64,72,169,10,141,2493 

1460 DATA 23,208,141,10,212,169,133,14 

1,0,2,169,34,141,1,2,104,2323 

1470 DftTft 64,162,0,138,157,0,3,232,208 

,250,96,32,227,34,162,0,6741 

1480 DftTft 138,157,244,34,239,35,0,4,15 

7,0,5,157,0,6,157,0,28 

1490 DftTft 7,232,208,241,169,0,141,7,21 

2,169,3,141,29,208,142,12,6371 

1500 DftTft 208,170,157,8,208,202,16,250 

,169,20,141,111,2,168,0,152,6377 

1510 DftTft 15,189,66,35,153,72,4,153,72 

,5,153,72,6,153,72,7,1347 

1520 DftTft 200,202,16,237,192,128,208,2 

31,162,3,189,82,35,157,0,208,8684 

1530 DftTft 202,16,247,96,204,204,204,20 

4,204,204,204,204,51,51,51,51,9719 

1540 DftTft 51,51,51,51,64,95,128,160,23 

0,133,208,23,173,10,210,41,7281 

1550 DftTft 15,10,10,10,10,133,134,173,1 

0,210,41,3,24,105,6,5,9454 

1560 DftTft 134,133,134,96,155,132,10,10 

,10,168,162,7,185,144,35,157,5607 

1570 DftTft 80,8,200,202,16,246,166,132, 

232,224,16,144,2,162,0,134,7518 

1580 DftTft 132,96,24,24,60,118,126,60,2 

4,0,8,28,50,118,125,60,364 

1590 DftTft 24,0,0,28,62,118,126,60,24,0 

,0,24,62,119,126,60,9932 

1600 DftTft 24,0,0,24,60,127,119,60,24,0 

,0,24,50,125,119,62,9920 

1610 DftTft 24,0,0,24,60,126,118,62,28,0 

,0,24,60,126,118,60,9922 

1620 DftTft 28,8,0,24,60,126,110,60,24,2 

4,0,24,60,126,110,60,9954 

1530 DftTft 56,15,0,24,60,126,110,124,56 

,0,0,24,50,126,238,124,3522 

1640 DftTft 24,0,240,35,235,36,0,24,60,2 

38,254,60,24,0,0,24,1237 

1650 DftTft 124,238,126,50,24,0,0,56,124 

,110,126,60,24,0,15,55,9205 

1660 DftTft 60,110,126,60,24,0,165,147,2 

4,105,160,141,1,210,165,148,7523 

1570 DftTft 141,0,210,165,147,240,2,198, 

147,96,164,146,152,9,189,64,8804 

1580 DftTft 36,153,0,3,200,202,16,246,16 

2,3,155,145,157,4,208,24,6970 

1590 DftTft 105,2,202,15,247,96,0,231,12 

9,129,0,0,129,129,231,0,5527 

1700 DftTft 162,0,173,31,208,201,7,240,1 

,232,134,137,96,173,31,208,9630 

1710 DftTft 201,7,208,5,169,0,133,137,95 

,72,165,137,240,4,104,169,7924 

1720 DftTft 0,96,104,96,162,237,160,36,3 

2,216,32,169,127,133,145,169,9483 

1730 DftTft 120,133,145,32,36,36,32,74,3 

5,162,255,142,252,2,232,134,9272 

1740 DftTft 147,134,149,134,152,134,151, 

134,128,169,0,133,20,165,152,240,9959 

1750 DftTft 2,198,152,165,20,201,2,144,6 

,32,20,37,76,147,36,173,3128 

1760 DftTft 252,2,201,28,208,8,32,46,38, 

169,255,141,252,2,32,87,6116 

1770 DftTft 36,240,224,106,175,11,169,12 

7,133,128,32,86,32,32,227,34,5201 

1780 DftTft 96,106,144,6,159,0,133,152,2 

40,201,155,152,208,197,169,10,1502 

1790 DftTft 133,152,166,142,232,224,5,20 

8,2,162,0,134,142,32,67,33,4569 

1800 DftTft 75,157,236,36,231,37,36,0,0, 



I 

53,115,101,0,106,111,121,2763 

1810 DftTft 115,116,105,99,107,0,116,111 

,0,112,108,97,99,101,0,99,2860 

1820 DftTft 101,108,108,115,0,111,110,0, 

98, 111, 97, 114, 100, 255, 32, 140, 6374 

1830 DftTft 37,173,120,2,166,151,208,12, 

201,15,240,48,133,150,159,8,7536 

1840 DftTft 133,151,208,19,155,150,221,1 

25,37,208,12,189,125,37,133,150,8603 

1850 DftTft 169,8,56,229,151,133,151,166 

,150,165,145,24,125,105,37,158,8278 

1860 DftTft 201,64,144,4,201,185,144,5,1 

59,0,133,151,96,165,146,24,6728 

1870 DftTft 125,115,37,201,71,144,241,20 

1,192,176,237,133,145,132,145,198,4434 

1880 DftTft 151,159,0,133,149,76,36,36,1 

,1,1,0,255,255,255,0,5382 

1890 DftTft 0,0,1,255,0,0,1,255,0,0,1,25 

5,10,9,11,0,8452 

1900 DftTft 6,5,7,0,14,13,174,16,208,240 

,4,202,134,149,96,155,8079 

1910 DftTft 151,208,251,165,149,208,247, 

162,1,134,149,134,143,202,134,144,2505 

1920 DftTft 32,241,37,248,177,129,240,25 

,169,0,145,129,165,138,56,233,385 

1930 DftTft 1,133,138,133,148,165,139,23 

3,0,133,139,133,141,152,150,208,1884 

1940 DftTft 23,169,10,145,129,155,138,24 

,105,1,133,138,133,140,165,139,8166 

1950 DftTft 105,0,133,139,133,141,152,30 

,215,169,15,133,147,134,148,32,7809 

1960 DftTft 247,32,232,37,227,38,32,5,33 

,32,19,33,76,33,33,155,549 

1970 DftTft 145,55,233,71,74,74,74,72,13 

3,129,169,0,133,130,162,3,5492 

1980 DftTft 6,129,38,130,202,16,249,104, 

10,10,24,101,129,133,129,165,6339 

1990 DftTft 130,105,0,133,130,165,129,24 

,105,100,133,129,165,130,105,12,6285 

2000 DftTft 133,138,165,145,56,233,48,74 

,74,74,158,95,165,139,288,4,7755 

2010 DftTft 165,138,240,50,159,102,133,1 

29,169,12,133,130,162,15,169,0,6306 

2828 DftTft 160,15,145,129,136,16,251,16 

5,129,24,105,20,133,129,165,130,7900 

2030 DftTft 105,0,133,130,202,16,231,32, 

132,33,32,247,32,32,5,33,2334 

2040 DftTft 32,33,33,32,19,33,96,173,252 

,2,201,33,208,45,165,20,5738 

2050 DftTft 72,32,86,32,162,39,189,184,1 

3,157,224,15,202,15,247,162,9901 

2060 DftTft 158,160,38,32,216,32,173,252 

,2,201,33,240,249,162,39,189,1664 

2070 DftTft 224,15,157,184,13,202,16,247 

,104,133,20,96,0,0,0,0,536 

2080 DftTft 0,0,0,0,0,0,0,0,0,0,0,0,0,48 

,97,117,6079 

2090 DftTft 115,101,100,255,72,169,0,133 

,20,104,197,20,240,8,72,32,4616 

2180 DftTft 87,36,240,245,104,96,169,0,9 

6,32,74,36,155,139,208,11,6055 

2110 DftTft 165,138,208,7,152,79,160,39, 

75,70,39,162,255,142,252,2,8791 

2120 DftTft 232,134,228,38,223,39,157,32 

,255,39,165,153,208,7,162,219,1232 

2130 DftTft 168,39,76,78,39,162,119,168, 

39,32,216,32,32,126,48,208,5695 

2140 DftTft 79,165,139,208,11,165,138,20 

8,7,162,149,168,39,76,70,39,5960 

2150 DftTft 165,142,201,4,208,9,32,105,3 

8,32,87,36,240,201,96,201,8017 

2160 DftTft 2,144,18,173,16,208,240,191, 

162,182,160,39,32,216,32,32,7670 

2170 DftTft 87,36,240,239,96,169,0,133,2 

0,155,20,201,30,176,168,32,6911 

2180 DftTft 105,38,32,87,36,240,242,96,3 

2,216,32,159,120,32,182,38,7061 

2190 DftTft 95,0,46,111,0,99,101,108,108 
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ATARI 



SHJIP^IEIR S/^ 



B&C ComputerVisrons 

3283 Kifer Road 
Santa Clara CA 95051 

(408) 749-1003 



A. 

ATARI 





RECONDITIONED ATARI MERCHANDISE 

All merchandise has been tested and reconditioned (except where noted). The "A" 
price indicates like-new condition. The "B" price indicates product may have scratches 
and other superficial surface mars. 30 day warranty except where noted. 



ATARI 

TRAK BALL 

$8.95 B 
$10. 95a 

FAST ARCADE- LIKE ACTION 



ATARI 



SPACE AGE 

JOYSTICK 

$5.50 



B 



$6.50 A 



LOOKS LIKE A GUN WITH A TRIGGER 
FOR GREAT SHOOT-EM-UP ARCADE 
ACTION. COMES IN ORIGINAL BOX. 



STANDARD 

ATARI 

JOYSTICK 




B 



$3.50 
$4.50 A 



2600 REMOTE 
CONTROL 

JOYSTICKS (2) 
$12.95 B 
$15.95 A 

RED. 2600 POWER SUPPLY TO 
USE ON 800/XL/XE - $5.00 



HARD TO FIND 

TOUCH 
TABLET 

$32. 95b 
$39. 95a 

In styrofoam box 

16K 400 

COMPUTER 

$24.95 B 
$29.95 A 

INCL. POWER SUPPLY 
AND TV SWITCH BOX 

48K UPGRADE $25.00 



NUMERIC 
KEY PAD 

$6. 95b 
$7. 95a 

USE WITH VISICALC, BOOKKEEPER & 
BASIC FOR FAST NUMERIC ENTRY 

-IN CLUDES HANDLER DISK 

IIIIMIIIIMMMIj 



40 COLUMN 
822 PRINTER 

$34. 95b 
$39. 95a 

INCLUDES ROLL 
OF THERMAL PAPER 



800 48K 

COMPUTER 
$69.95 B 
$79.95 a 

INCL. POWER SUPPY, TV SWITCH BOX, 
BASIC CARTRIDGE 8. BASIC MANUAL 



850 

INTERFACE 
$79.95 B 
$89.95 A 

I/O CABLE & POWER SUPPLY 

LIMITED SUPPLY 



1030 MODEM 
WITH 
EXPRESS 

29.95b 
$34.95 A 

IN STYROFOAM BOX 
INCLUDES I/O CABLE & POWER SUP. 




410 PROGRAM 
RECORDER 

$9.95 

IN ORIGINAL BOX -AS IS 
NOT TESTED 
NO WARRANTY 



810 

DISK DRIVE 
$110.00 B 
$120.00 A 

COMPLETE WITH CASE, 
I/O, POWER SUP. & DOS 2 



DISKETTES 

AS LOW AS 

20 CENTS 

10 FOR $4.00 
100 FOR $29.00 
1000 FOR $200 

UN-NOTCHED WITH DOS 3 




THE 

BOOKKEEPER 

NEW IN BOX 

$24.95 

WITHOUT KEYPAD 

$29.95 

WITH KEYPAD 



CARTRIDGES 
$5.00 EACH 

MISSILE COMMAND 

STAR RAIDERS 

DONKEY KONG 

DEFENDER 

PAC-MAN 

BASIC 



SOME 
IN BOXES 




SHIPPING INFORMATION 

Prices do not include shipping and handling. Add $5.00 for small items Add $8.00 for disk drive. Calif, rssidents 
include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders 
may be pre-paid with money order, cashier check, or personal check. Personal checks are held for two weeks before 
order is processed. C.O.D orders are shipped via UPS and must be paid with cash, cashier check or money order. 
International and APO orders must be pre-paid with cashier check or money order. $20.00 minimum on all orders. 
All sales are final - no refunds - prices are subject to change. Phone orders accepted TUESDAY THROUGH FRIDAY 
from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain 
library. Write or call for free catalogue. (408) 749- 1003 tue - fri ioam e pm 
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continued 



,115,0,184,97,118,191,6,2831 

2280 DATA 98,181,181,110,0,112,108,97, 

99,181,188,8,111,118,8,116,3287 

2218 DATA 104,181,8,98,111,97,114,188, 

255,8,8,8,0,0,0,0,7938 

2220 DATA 0,8,8,8,44,181,116,8,116,184 

,181,114,101,0,98,181,2828 

2238 DATA 0,108,185,182,101,1,255,0,0, 

0,8,8,8,8,0,52,6297 

2248 DATA 184,101,8,99,181,188,188,8,9 

9, 111 , 188, 111 , 118, 121 ,0,104, 4160 

2258 DATA 97,115,8,188,185,181,180,255 

,0,0,0,48,114,101,115,115,3885 

2268 DATA 0,116,114,105,103,103,101,11 

4,0,182,111,114,8,118,181,128,4598 

2278 DATA 116,8,183,181,110,181,114,97 

,116,185,111,110,255,0,0,0,3779 

2280 DATA 0,0,224,39,219,40,35,181,108 

, 188, 0, 112, 111, 112, 117, 188, 5386 

2298 DATA 97,116,165,111,110,8,104,97, 

115,0,115,116,97,98,105,188,5060 

2300 DATA 105,122,101,100,255,169,0,13 

3, 153, 169, 81, 133, 129 , 169, 12 , 133 , 8618 

2310 DATA 130,169,15,133,155,169,15,13 

3,156,169,0,133,154,162,7,188,8386 

2328 DATA 118,48,177,129,281,18,288,2, 

238,154,282,16,242,166,154,168,2466 

2338 DATA 21,177,129,288,6,224,3,288,3 

2,248,8,224,2,248,26,224,9887 

2348 DATA 3,248,22,238,153,166,153,157 

,224,15,165,129,24,185,21,157,8035 

2350 DATA 224,13,165,130,185,0,157,224 

,14,165,129,24,185,1,133,129,5952 

2360 DATA 165,130,105,0,133,130,198,15 

6,16,175,165,129,24,105,4,133,6406 

2370 DATA 129,165,130,105,0,133,130,19 

8,155,16,154,96,8,1,2,28,1696 

2388 DATA 22,40,41,42,165,142,281,4,20 

8,3,76,39,41,162,7,169,4785 

2390 DATA 0,157,88,8,189,144,35,157,96 

,8,202,16,242,160,0,166,7718 

2488 DATA 153,189,224,13,133,129,189,2 

24,14,133,138,189,224,15,288,4,9669 

2418 DATA 169,11,288,2,169,12,145,129, 

282, 288, 238 , 162, 7, 134, 131, 166, 1157 

2428 DATA 131,188,162,41,162,0,185,178 

,41,157,88,8,266,232,224,8,9445 

2436 DATA 288,244,166,131,188,178,41,1 

62,8,185,178,41,157,96,8,266,8696 

2440 DATA 232,224,220,40,215,41,8,288, 

244,165,142,248,4,281,2,288,1493 

2458 DATA 34,166,157,189,242,41,141,6, 

218,189,248,41,141,2,210,189,1521 

2468 DATA 254,41,141,4,210,165,131,24, 

105,161,141,1,210,141,3,210,8611 

2470 DATA 141,5,210,169,0,133,28,165,2 

0,201,4,176,16,32,105,38,3378 

2488 DATA 32,87,36,240,242,32,86,32,16 

9,1,72,288,7,198,131,16,5917 

2490 DATA 146,169,8,72,168,8,248,166,1 

53,189,224,13,133,129,189,224,2967 

2560 DATA 14,133,130,189,224,15,268,46 

,169,18,145,129,165,138,24,165,7793 

2510 DATA 1,133,138,165,139,105,0,133, 

139,197,141,240,2,144,34,165,9084 

2526 DATA 138,197,148,144,28,165,138,1 

33,146,165,139,133,141,76,119,41,8581 

2536 DATA 169,8,145,129,165,138,56,233 

,1,133,138,165,139,233,8,133,9593 

2548 DATA 139,198,153,288,178,32,86,32 

, 165, 143, 24, 185, 1, 133, 143, 165, 7485 

2558 DATA 144,165,6,133,144,216,166,15 

7,232,224,6,268,2,162,8,134,9198 

2560 DATA 157,32,247,32,32,5,33,32,33, 

33,164,96,0,8,16,24,7986 

2578 DATA 32,40,48,56,56,48,40,32,24,1 

6,8,8,8,0,56,126,7474 

2580 DATA 126,60,24,0,0,0,56,124,124,5 



6,24,0,0,0,56,124,9046 

2590 DATA 124,24,0,0,8,0,24,60,60,24,0 

,0,0,0,0,60,5150 

2600 DATA 60,24,216,41,211,42,0,0,0,0, 

8,56,56,24,6,6,6563 

2616 DATA 8,8,0,56,56,0,0,0,0,0,0,24,2 

4,0,0,0,3714 

2620 DATA 243,230,217,204,193,182,121, 

114,108,102,96,91,60,57,53,50,5919 

2630 DATA 47,45,32,74,36,169,0,141,197 

,2,141,198,2,141,200,2,6233 

2640 DATA 169,110,162,42,141,48,2,142, 

49,2,169,60,32,182,38,268,5728 

2650 DATA 74,162,9,238,197,2,169,1,32, 

182,38,268,62,262,16,243,8999 

2668 DATA 169,128,32,182,38,208,52,162 

,9,286,197,2,169,1,32,182,6926 

2676 DATA 38,208,40,202,16,243,169,60, 

32,182,38,268,30,162,3,189,8602 

2686 DATA 141,43,157,196,2,262,16,247, 

169,176,162,42,141,48,2,142,7786 

2696 DATA 49,2,169,127,133,128,32,87,3 

6,246,251,96,112,112,112,112,9244 

2700 DATA 112,112,112,112,112,112,112, 

112,112,112,66,130,42,65,110,42,4924 

2710 DATA 0,0,0,0,0,0,0,33,110,97,108, 

111,183,8,35,111,1894 

2720 DATA 169,112,117,116,105,110,103, 

0,112,114,101,115,101,110,116,115,6846 

2730 DATA 0,0,0,0,0,0,0,0,112,112,112, 

112,112,112,70,197,4660 

2740 DATA 42,6,6,6,6,6,112,6,112,112,6 

,7,112,112,112,6,812 

2756 DATA 65,176,42,6,6,18,0,0,0,0,10, 

0,10,10,10,16,4031 

2760 DATA 0,10,212,42,143,43,10,10,10, 

6,0,8,0,74,6,8,5833 

2770 DATA 0,0,74,0,74,0,0,0,8,74,0,0,6 

,0,0,0,4102 

2786 DATA 6,18,6,8,0,0,10,0,10,10,10,0 

,6,10,10,10,3620 

2790 DATA 0,0,0,0,0,74,0,0,0,0,74,0,74 

,0,0,0,5010 

2860 DATA 0,74,0,0,0,8,6,0,0,10,0,0,0, 

0,10,0,3198 

2810 DATA 16,6,0,0,8,16,6,8,8,6,8,6,6, 

74,74,74,6216 

2826 DATA 74,8,74,6,74,8,0,0,0,74,74,7 

4,74,0,0,128,8938 

2838 DATA 128,169,174,128,188,168,165, 

128,166,161,179,188,128,172,161,174,49 

21 

2840 DATA 165,128,128,8,8,6,6,8,35,56, 

37,33,52,37,36,0,6997 

2858 DATA 34,57,8,6,8,0,8,128,128,128, 

128 , 178 , 161 , 173, 165, 179, 9756 

2866 DATA 128,128,168,161,167,181,165, 

128,128,128,128,64,64,64,64,112,7586 

2870 DATA 114,101,115,115,64,64,115,11 

6,97,114,116,64,64,64,64,70,4293 

2888 DATA 26,150,226,2,227,2,0,32,0,0, 

0,0,0,0,0,0,5295 



Listing 2. 
Assembly listing. 
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SYSTEM EQUATES 
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;Page zero 




DOSINI 


= 


$GC 


RTCLOK 


z 


$14 


DTROCT 


= 


$4I> 


JHisc. 






UD5LST 


- 


$B2Sa 


5DL5TL 


— 


58238 


H5YNC 


- 


SD4eA 


5DMCTL 


- 


SOZZF 


CON30L 


~ 


SDBIF 


RANDOM 


— 


SDZBfl 


5TICKB 


- 


SBZ78 


TRIGO 


— 


SDOIB 


NMIEN 


- 


$D4BE 


CH 


- 


SBZFC 


CHBOS 


— 


SB2F4 


0LD5ET 


= 


$EBBa 


; audio 






SKCTL 


- 


SD2BF 


flUDCTL 


= 


$D2BS 


flUDFl 


= 


$D200 


AUDCl 


= 


SD281 


ftUDFZ 


= 


SD2e2 


aUDC2 


— 


SDZ03 


aUDF3 


- 


SD2fl4 


tlUDC3 


- 


SDZ05 


JP/M Graphi 


cs 


EROCTL 


- 


SDOID 


GPRIOR 


— 


S026F 


PMBftSE 


- 


$D4B7 


HPOSPS 


- 


$DBOB 


HPOSPl 


- 


SDBOl 


HPOSPZ 


~ 


SDe02 


HPOSPS 


- 


$DBB3 


HP03H0 


— 


$DB04 


HP05M1 


- 


SDB05 


HP05M2 


r 


SDOoe 


HP05M3 


— 


SD007 


SIZEP8 


= 


Sdoos 


SIZEPl 


= 


SDB09 


SIZEP2 


— 


$DBBa 


5IZEP3 


= 


$DB8B 


5IZEM 


= 


SDBBC 


jColors 






PCOLRO 


- 


$B2CB 


PCOLRl 


= 


S02C1 


PC0LR2 


- 


S02C2 


PC0LR3 


- 


S02C3 


COLORB 


- 


$B2C4 


COLORl 


- 


S02C5 


COLORZ 


— 


$B2C6 


C0L0R3 


- 


$82C7 


COLBOK 


- 


$8208 


HCOLRB 


- 


$DBi6 


HCOLRl 


- 


SDB17 


;5ysteM 


Routines 


5I0INW 


- 


$E465 


5ETUBW 


= 


$E45C 


KITUBL 

I 


- 


$£462 



! PROGRAM VARIABLES 
' »= $88 



iGlobal 


HiSC. 


VBICTL 


.05 1 


PMTl 


.DS 2 


TEMP 


.DS 1 


IMAGE 


.DS 1 


COLTIM 


.DS 1 


BORDER 


.05 1 


CURSOR 


.DS 1 


COLMSK 


.DS 1 


CONKEY 


.DS 1 


;Cell Database 


^OP 


.DS 2 


MOST 


.DS 2 


MODE 


.DS 1 


GEKER 


.DS 2 


jpiacenent routines 


CURK 


.05 1 


CURV 


,D5 1 


SOUND 


.05 1 


TONE 


.DS 1 


PRESS 


.DS 1 


DIR 


.05 1 


DIST 


.05 1 


SELECT 


.05 1 


;Regeneration 


ACTIVE 


.05 1 


COUNT 


.05 1 


ROM 


.05 1 


COL 


.05 1 


CHORD 


.05 1 


jcolor Constants 


CGENTXT 


= SC8 


CGENNUH 


= $56 


eCRBBAK 


= $BB 



JVBI CTrL. flag 
jMisc. PoiMTer 
;TEMP storage 
;IMAGE pointer 
;COLor TIMer 
;BORDER color 
;CUR50R color 
iCOLor HaSK 
JCONSole KEY fig 



jbcd population 
;bcd nax pop. 
; growth MODE 
,'bcd GENERation 



jCURsor X pos. 
;CURsor Y pos. 
J50UND flag 

J sound TONE 

;trig PRE55 flag 
;stick DIRect. 
; cursor DISTance 
;SELECT keg tine 



;ACTIVE cells 
jteMp COUNTer 
;current ROW 
jcurrent COLUMN 
icurrent CHORD II 



;GENer label 
jGENer nuHber 
;GR.e BAcKground 



CGRBLUH 


- 


$8A 


JGR.B text LUM. 


GHUMl 


— 


$8A 


I'HUMber color 1 


ONUMZ 


- 


$88 


;NUHber color z 


QBOARD 


~ 


$18 


; BOARD squares 


ecELL 


=: 


$46 


; CELLS 


;Misc. Constants 




loL 

; 


= 


$FF 


;E0L character 


i GLOBAL 


DATA 




J 


«= 


$08 




PM 


.OS 


$B308 


;Plager/Missile 


MISSL 


.05 


$8108 


;MeMory. . . 


PL8 


.05 


$8108 




PLl 


.OS 


$8108 




PL2 


.05 


$8108 




PL3 


.DS 


$8188 




CHSET 


.05 


$8408 


iNev CHar SET 


DISP 


.05 


488 


;DISPlag nenory 


BOARD 


= 


DISPtlBZ 




TENT 


— 


DISP4'44I 




CADRL 


.DS 


$8108 


;Regeneration 


CAORH 


.05 


$8188 


;data storage. . 


CTYPE 


.05 


$8188 




TSAWE 

; 


,05 


48 


;TeMp buffer 


i ; PROGRAM MAINLINE 




' i 


«= 


$2888 





CLD ;Kill decinal 

J5R 5ET5YS ; 5et-up systeH 
JSR REDEFINE ;Redef. chset 

J5R TITLE iOo title scrn. 

JSR SETUP ;set-up progran 

JSR PLACE ;PlacB cells 

JSR LIFE i Create life! 

JMP MAIN ;Loop forever 



VBLANK HAINLIKE 



CLD 

LDA VBICTL 

BMI NOVBI 

LDA no 

STA ATRACT 
JSR ANIMATE 
JSR BCOLOR 
LDA VBICTL 
BNE NOVBI 
JSR DING 
INC CURSOR 
LDA CURSOR 
STA COLORS 
JMP XITVBL 



;Kill decinal 
jGet UBI flag 
;lf <B, exit 
;else, turn off 
; attract Mode 
;AniMate cells 
;Do border color 
;Get flag again 
;If not 8 J exit 
;Do ding sound 
;Flash cursor. . . 



; Bye-bye UBI! 



SET-UP SYSTEM 



AHong other 
the VBI and 
associated 
need be ini 



J 
SETSYS 



thingsj set up 

any variables 
with it that 
tialized only once. 



JSR SIOINV ;lnit sounds.. 
JSR QUIET 

LDA n <RE5ET ;Steal the 
STA DOSINI ;reset vector. 

LDA U >RESET 
STA DOSINItl 
LDK nSFF ;Init VBI 

STX VBICTL ;variables, . . 

STX COLTIM 

5TK IMAGE 
LDY « <VBI 
LDX » >VBI 
LDA tt7 
JMP SETVBW 



SHUT OFF SOUND 



This is a general purpose 
routine that initializes 
sound channels 1,2 & 3. It i 
not responsible for handling 
routine-specific flags. 



OUIET 



LDA n3 
STA SKCTL 
LDA n8 
STA AUDCTL 
STA AUDCl 
STA AUDC2 
STA AUDC3 
RTS 



;lnitialize 
; sound and 
;turn off 
;channels 1,2 
;and 3. . . 



REDEFINE CHAR5ET 



Move charset 

REDEFINE 

LDX no ;Move set fron 
MOVSET LDA OLDSET.X ;$EOBB to 



SIR CHSET, K ;RAM. . . 
LDA OLDSET+SOieO.K 
STA CHSET+$B18B,X 
LDA 0LDSET+$82B8,X 
STA CH5ET+$B28B,X 
LDA 0LD5ETt$e3e6,X 
STA CHSET'l'$83a8,X 
INX 
BNE MOVSET 

Redefine a few chars 

LDX 1)63 ;Redefine chars 

EDEF LDA CHRDAT,X ;2 thru 18 as 
STA CHSEH-16,X ;the arena's 
DEX ; borders 
BPL REDEF 

Install new set 



LDA t) >CHSET 
STA CHBAS 
RTS 



;Character data 

CHRDAT 

I 



BYTE $8B,$8B,$B8,SFF 
BYTE $Be,$8B,SFF,$FF 



.BYTE $FF,SFF,S88,S88 
.BYTE $FF,$8B,$BB,$BB 



.BYTE $DB,$D8,$0B,$De 
.BYTE $D8,$D8,$D8,$D8 



.BYTE $BB,$BB,$BB,$eB 
.BYTE $eB,$BB,$BB,$BB 



.BYTE $88,$88,$88,$8F 
.BYTE $08,$e8,$8B,$eB 



.BYTE $08,S08,$0e,$Fa 
.BYTE $18, $18, $08, $08 



.BYTE $eB,$BB,$8S,$eS 
.BYTE $6F,$a8,$88,$8a 



.BYTE $DB,$DB,$lB,$ia 
.BYTE $Fa,$08,$88,$80 



PRINT MESSAGE 



This routine prints an EOL 
terHinated internally-coded 
string on the Message line. 

Call with: 

X reg. - lo byte of string 
y reg. - hi byte of string 



SIX 


PHTl 


jSave string 


STY 


PNTl+1 


;address 


LDY 


KO 




DOCHAR LDA 


tPNTll, 


Y ;Get a char 


CMP 


ttEOL 


;EOL? 


BEQ 


PADIT 


;Yes, pad line. 


STA 


TEXT,Y 


;No, show char 


INY 




;and do the 


BNE 


DOCHAR 


;next one 


;Pad rest of 


line With blanks 


PADIT LDA 


KB 


;Blank char 


OOPAD CPY 


1148 


;a11 done? 


BCS 


PREXIT 


i^es, return. 


STA 


TEXT,Y 


;No, show blank 


INY 




;Loop until 


BNE 


DOPAD 




PREXIT RTS 






1 NUMERICAL DISPLAY 


ROUTINES 


;5how generation nunber 


SHOGEN 






LDY 


1)14 


;Screen offset 


LDX 


noB 


;CDlor Mask 


LDA 


GENERI^l 


)Print.. . 


JSR 


BCD 




LDA 


GENER 




JMP 


BCD 




;Show papulation 




5H0P0P 






LDY 


061 


;5creen offset 


LDX 


ni6 


; color Mask 


LDA 


POPtl 


iPrint... 


JSR 


BCD 




LDA 


POP 




JMP 


BCD 





;Show starting pop. 

) 

SHOSTRT 

LDY nee 

LDX RBO 
LDA POP+1 
JSR BCD 
LDA POP 
JMP BCD 

Show largest pop. 

5H0H05T 



;Screen offset 
;color Mask 
;print. . . 



; Screen offset 
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Life in the Fast Lane 



continued 



I. 



t»X ttlS ;color nask 

LDA MOSTtl jPrint. , . 

JSR BCfr 

LDA HOST J Fa II into BCI>. 



IPrint 2 BCD digits 

J 

;caii Mithi 

I a reg, - BCD data 

I X reg. - color Hasktis 

; 9 res. - offset froM DI5P 

ic> 

PHA ;Save BCD data 

STX COLHSK ;save color Hask 

LSR A ;Move upper 4 

LSR A ;bits into lower 

LSR A ;4 bits.. . 
LSR A 

ORA COLHSK )nake it ATASCII 

STA DISP.Y ;and show it. 

IHY ;Goto next pos, 

PLA ;cet original n 

AND tt$eF ;nask upper half 

ORA COLHSK jMake it ATASCII 

STA DISP,Y :and show it, 

INV ;GotD next pos. 
RTS ;and leave. 

; 

J 

; SHDH HODE 

J 



LDY 076 ;screen offset 

LDX HODE ;Get Mode it 

LDA LETl.X jPrint first 

STA DISP,Y J letter of node 

INY 

LDA LETZ.X ;Print second 

STA DISP,Y ] letter... 

INY 

LDA LET3,X ;and print 

STA DISP.Y ;flnal letter 

RTS 

I 

;Hode data 

LETl .SBYTE +64,"RRSSF" 
LET2 .SBYTE ♦64,"GGSSS" 
LET3 .SBYTE t64,"NaN0T" 



; HAIX SET-UP ROUTINE 



LDA no J set node to 

STA HODE ;e (RGNl 

STA SDHCTL ;Turn DHA off 

JSR SETCELL ;Set cell data 
JSR SETCOLR ;Set colors 
JSR SETDISP ; Set-up display 
JSR SETPH ;Set PH grphics 
LDA »6Z ] Enable DMA for 
STA SDHCTL ;screen and PH 
RTS jand exit! 



INIT CELL DATABASE 



Reset all cell variables except 
MODE which does not need to be 
changed when the cells are. 



LDX Ite ; Clear out the 

STX POP jpopulation. . . 

STX POP+1 

STX HOST (largest pop... 

STX HOST-H 

STX GEHER^t ;set generation 

INK J to 1 CBCD] 

STX GENER 

RTS 



SET UP COLORS 



I 



LDX ns tDo S color regs 
LDA COLORS, X jGet a color 
STA PCOLRS.X ;S put in reg. 
DEX jRepeat til done 

BPL COLR 
RTS 



Sinltiai colors 

) 

COLORS 

.BYTE GBOARD fPCOLRB 

.BYTE OBOARD ;PC0LR1 

.BYTE GBOARD iPCDLRZ 

.BYTE GBOARD JPCOLRI 

.BYTE GGENTXT (COLORO 

.BYTE GGENNUH (COLORl 

.BYTE GGRBBAK ; CaL0R2 

.BYTE 8 ;CaL0R3 

.BYTE • ;C0LBAK 

1 

, 

I SET-UP HAIN DISPLAY 



;ciear display MeMory 



SETDISP 



LDX tte 

TXA 



iClear 48B bytes 
I in two blocks 



CLRD STA DISP.X JOf 248 each... 

STA DISP+24B,K 

INX 

CPX 11248 

BNE CLRD 
J 

;Print labels 
I 

LDX nie jPrint 
PRLl LDA GLABEL.X ("GENERATION!" 

STA DISP4^2,X ;on line 8... 

DEK 

BPL PRLl 

LDX 035 ;Print cell 
PRLZ LDA LABELS, X ;data labels 
STA DISPi'21,X ;on line 1... 

DEX 

BPL PRL2 

I 

I Draw borders 

LDA St <[DISPtl81] IDraw the 
STA PNTl ;long sections 

LDA » XDISPtieil JOf the 

STA PNTltl (border 
LDX nis ; CIS Chars long) 

BDRAH LDA tses (Print a piece 

STA DISP4^S2,X (Of top line 
LDA 1167 (and the botton 

STA DISP<'422,X (line plus 
LDY tte (part of the 

LDA nej (left side 

STA (PNTII.Y 

LDY ttl7 (and finally 

LDA nes (a piece of the 

STA CPNT1),Y (right! 

LDA PNTl (Add 28 to the 

CLC (address of the 

ADC tt28 (current line so 

STA PNTl (that we'll know 

LDA PNTltl (Where to print 

ADC StB (the next side 

STA PNTl+l (Chars. 

DEX (Finish drawing! 

BPL BDRAH 
I 

LDY 1178 (Add upper left 

STY DlSPtsl (corner, 

INV (upper right, 

STY DISPtJB 

INY (lower left, 

STY DISP+421 

INY (and finally the 
STY DISP«43S (lower right! 

; 

(Point to Main DL 

LDA tt <DL 

STA SDLSTL 

LDA tt >DL 

STA SDLSTL+l 
( 
(Start up DLIS 

LDA It <DLI1 (Point to first 

STA MD5LST (DLI... 

LDA It >DLI1 

STA MD5L5T*1 

LDA 11192 (Enable DLIS and 

STA NHIEN (VBIS 
( 

(Show cell data 
( 

JSR SHOGEN (Show generation 

JSR SHOPOP (current pop. 

JSR SHOSTRT (Starting pop. 

JSR SHOHDST (HaxinuH pop. 

JHP SHOHODE (and node 

( 

(Hain display list 

J 

DL .BYTE 112,112,112 

.BYTE 198, <DISP, >DISP 

.BYTE 138 

.BYTE 134 

.BYTE 112 

.BYTE 6,5, 6,6,6,6,6,6,8 

.BYTE 6,6,6,6,6,6,6,6 

.BYTE 134 

.BYTE 112 

.BYTE 2 

.BYTE 65, <DL, >DL 

(Hisc. display data 
: 

GLABEL .SBYTE "GENERATION!" 
LABELS .SBYTE "Population " 

.SBYTE "Starting Host" 

■ SBYTE " Mode" 

( 

j 

( HAIN SCREEN DLIS 



(Set the text luMinance for 

(the label line CI) 

( 

DLIl PHA (Save ace. 
LDA ttCGRSLUH (Set text 
STA HCOLRl (luninance 
STA HSVNC (Wait for sync 

LDA tt <DLI2 (and point to 
STA VDSLST (next dli... 
LDA tt >DLI2 
STA VDSLST+1 

PLA (Restore ace. 

RTI 
( 

(Set colors for the nuMbers on 
(line 2 



PHA 

LDA HGNUMl 
STA HC0LR8 
STA HSYNC 
LDA ItGNUMZ 
STA HCOLRl 
LDA It <DLI3 
STA UD5L5T 
LDA It >DLI3 
STA VDSLST+1 
PLA 
RTI 



(Save acc. 
(Set nuMber 
(color 1, 
(wait for sync, 
(and set nunber 
(color 2 
(Point to next 
(dli. .. 



(Restore acc. 



Set colors for the cells and 
border of board 
J 
DLI3 PHA (Save acc. 

LDA HGCELL (Set cell color 

STA HC0LR8 

STA M5YHC (Wait for sync 

LDA BORDER (and Set border 

STA HCOLRl (color 

LDA tt <DLI4 (Point to final 

STA VDSLST (dli.. . 

LDA tt >DLI4 

STA WDSLST+1 

PLA (Restore acc. 

RTI 



Set text 
line 



luHinance for Message 



PHA (Save acc 
LDA ItGGRBLUH (Set text 





STA HCOLRl 


(luMinance, and 




STA HSYNC 


(wait for sync 




LDA tt <DLI1 


(Point back to 




STA VDSLST 


(first dli. . . 




LDA tt >DLI1 






STA VDSLST+1 




PLA 


(Restore acc. 


; 


RTI 




1 CLEAR 


MISSILE MEHORY 


CLRMISS 








LDX 118 


(Fill Missile 




TXA 


(Henory with 


CCLR 


STA MISSL.X 

INK 

BNE CCLR 


(zeroes 




RTS 




J SET-UP 


PH GRAPHICS 




(Clear pH MeMory 




SETPH 








JSR CLRMISS 


(Clear Missiles 




LDX 118 


(Clear players 




TXA 


(8-3... 


PHCLR 


STA PLe,X 

STA PL1,X 

STA PL2,X 

STA PL3,X 

INX 

BHE PHCLR 





) 

(Init PM 

LDA It >PH (Point to PH 
STA PHBftSE (MOMOry 

LDA 113 (Turn on pM 

STA GRACTL (graphics 

STX SIZEH (Set MiSSl. Size 

TAX (Set all players 
SETSIZE STA SIZEP8,X (to 

DEX (quadruple width 

BPL SETSIZE 

LDA 1128 (Set priority 

STA GPRIOR (w/5th player on 
I 

(Draw board squares 
; 

LDY 118 (Draw squares 
SQl LDX ItlS (in players 8-3 
S02 LDA SQRDAT,X (Get data byte 

STA PLB+72,Y (and put it in 

STA PL1+7Z,Y (each player... 

STA PL2+72,Y 

STA PLJ+72,Y 

INY (Next PH byte 
DEX (Finish Up a set 
BPL SQ2 (of 4 squares 

CPY 11128 

BNE SOI (CoHplete board 
I 

LDX 113 (Set player 
MOVSQ LDA PLHPOS,X (horizontal 

STA HP0SP8,X (positions... 

DEX 

BPL MOVSD 

RTS 
I 

(Square data 

SORDAT .BYTE $CC,$CC, $CC, SCC 
.BYTE $CC,$CC,$CC,$CC 
.BYTE $33, $33, $33, $33 
.BYTE $33, $33, $33, $33 

I 

(Player horiz. positions 

J 

PLHPOS .BYTE 64,56,128,168 

I 
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A, 

ATARI 



HARDWARE/ACCESSORIES 



ATARI 

ST's Color or Mono CALL 

ST Monilor Cables CALL 

SF 314 Double Sided Drive CALL 

Supra 20, 30, 60 Meg Hard Disks CALL 

SH 204 20 Megabyte Hard Disk CALL 

SC 1224 RGB Color Monilor CALL 

130 XE CALL 

65 XE CALL 

1050 Disk Drive CALL 

1020 Color Printer/Piotler 27 

Aslra"TheOiie" 284 

7800 Pro System & Softv^are CALL 

Power Supply 400/800/810 1050/850 . 15 

Power Supply 600/800 XL, 130 XE 26 

Power Supply lor Indus GT 15 



PANASONIC 

KX-P1080;, 120 cps. 

KX-P1091;, 160 cps 

KX-P1092I, 240cps 

KX-P1592 136col.True1B0cps 
KX-P3131 L.Q.Daisy, 80 col 



.CALL 
CALL 
CALL 

. .549 
279 



KX-P3151 L.Q.Daisy, 136 col 429 

KX-PI 10 Ribbon, BIk 9 

COLOR RIBBONS 11 



CITIZEN 

MSP-10 CALL 

MSP-15 CALL 

STAR MICRONICS 

NX-10(80col) CALL 

NP-10 NEW MODEL 179 

NL-10 CALL 

NX-15(135col) 429 

STAR SG-10 Ribbons 4 

Ribbons NLor NX CALL 

MODEMS 

SX-212 CALL 

XM-301 Direct Connect CALL 

HAYES 1200 Smarttrodem 399 

US ROBOTICS COURIER 2400-100% Hayes! 429 

HABA 1 200 (Hayes Compatible) 119 

VOLKSMODEM VM 520 (Hayes Compat) .139 

AVATEX 1200 bps Special 89 

AVATEX 1200 H.C. (Hayes Compatible) ... 129 

INTERFACES/BUFFERS 

ATARI 850 In Stock! 119 

P:R; CONNECTION (100% 850 compatible) . .69 

CABLES -We've Got 'Em CALL 

XETECGRAPHIXAT 39 

SUPRA/MPPMICROPRINT 39 

SPECIAL SUPRA MiCRQSTUFFER(64K) 59 

SUPRA/MPP1150 CALL 



MIDI HEADQUARTERS 

CZ-S CALL 

Cables CALL 

Hybrid Arts Software CALL 

Other MIDI Software CALL 

MONITORS 

TEKNIKA MJ-22 RGB and Composite . . 289 

NAP Green W/Audio 85 

NAP Amber W/Audio 90 

NAP Composite Color CALL 

NAP, RGB and Composite CALL 

SANYO Composite 189 

EPSON 

LX-86(80col) CALL 

FX-85(80cOl) CALL 

FX-286 200 cps (135 COl) CALL 

Tractors CALL 

ACCESSORIES 

ST ■ COVERS, Heavy Grade Vinyl 8 

ST - MOUSE MAT 10 

ST - 6' Printer Cable 19 

ST -Modem Cable (to Hayes, etc.) 17 

ST -Monitor Stand, Swivel & Tilt 15 

ST Clock Internal or Plug-In ea 41 

Disk File for 3.5" disks (holds 401 9 

Flip N File DATA CASE (holds 50) 5'/. 8 

Disk File, with Lock (holds 100!) 5% .13 

PowerStrip,5outlet, (ISampSurge) 15 

Deluxe Power Strip w/Spike & Surge 24 

Printer Stand, Heavy Duty, Sloping 13 

ATARI ■■Standard" Joystick 7 

Epyx 500XJ Joystick 15 

WICO Bat Handle Stick 17 

Competition Pro 5000X Stick 18 

6^ Atari Serial I/O Cable 7 

Book of Adventure Games I or II 15 

Disk Notcher 5 

CompuServe Starter Kit 24 

U,S, DOUBLER(Dbl.Densily for 1050) . 49 
U.S. DOUBLER without Sparta DOS 29 

■'Duplicator'^ for 1050 Disk Drive 125 

PRINTER SUPPLIES 

MAILING LABELS. White, 500 pack 3 

per 1000 4 

Blu,Pnk,Gn.Yel. 800 pack (200 ea) 9 

per 500. any 1 color 5 

per 1000, any 1 color 7 

Big Labels, 1-7/16x4", White, per 500 5 

PRINTER PAPER, Micro-Fine perts. 20 lb. 

500 sheets. Pure While Bond 8 

1000 sheets, same as above 14 

PRINTSHOP "Rainbow" Color Paper Packs 

Pastels (5 colors), 50 sheets of ea 12 

Matching Envelopes , 20 of each 6 

Brights (8 colors), 50 sheets olea 29 

Matching Envelopes, 20 ol each 10 

ALL 13 colors, 50 sheels of each 39 

Matching Envelopes, 20 of each 14 



SOFTWARE 
We can't list it all. . .call it you don't see it! 



8BIT SOFTWARE 



.35 

12 



14 
.26 
14 

20 
20 



ATARI 

Atanwriter Plus 

Proofreader 

Silent Butler 18 

Learning Phone 15 

Star Raiders II 13 

OTHERS CALL 

ACCESS 

Triple Pack 

Leader Board 

Tournament Disks . 
ACCOLADE 

Hardball 

Fight Night 

BATTERIES INCLUDED 

Paperclip w/Spellpak 39 

Homepak 15 

B-GRAPH 27 

ARTWORKX 

Strip Poker 19 

S.P. Data Disk^ each _ _ . . 13 

BRODERBUND 
Championship Loderunner .18 

Karaleka 18 

Loderunner 23 

Print Shop 28 

Print Shop Companion 24 

Graphics Library 1,2. or 3 ..ea16 
DATASOFT 

Allernale Reality 27 

Never Ending Story 21 

ELECTRONIC ARTS 

Racing Destruction Set 12 

Super Boulderdash 12 

Touchdown Football 12 

Ultima IV 43 

Many Other Titles .. CALL .12 

EPYX 

World Karate Championship .19 

INFOCOM 

Hitchhiker's Guide 23 

Leatiier Goddesses 22 

All Olhers CALL 

O.S.S. 

Action 46 

Basic XL 36 

MAC/65 46 

Too! Kits for above ea 19 

Basic XE 46 

SSI 

Mech Brigade 38 

War Game Const. Set 19 

NAM 25 

USAAF 36 

Phantassle 25 

Wizard's Crown 26 

OTHERS CALL 



SUBLOGIC 

Flight Simulator II 37 

Scenery Disks ea 15 

Western Scenery Set 74 

SYNAPSE 

SYNCALC 31 

SYN CALC TEMPLATES 13 

SYNFILE -I- 31 

XLENT 

Typesetter 22 

Rubber Stamp 20 

Page Designer 20 

Megalontil 16 

P.S. Interface 19 

Word Processor 20 



ST SOFTWARE 



ATARI 

1st Word Plus NEW 32 

Microsoft Write 59 

Baltlezone 19 

Crystal Castles 19 

Joust 19 

Star Raiders 19 

ABACUS 

Text Pro 33 

Datatrievc 33 

Power Plan 52 

PC Board Designer CALL 

ACCESS 

Leader Board 26 

Tournament Disks ea 14 

ACCOLADE 

Mean 18 33 

Hardball CALL 

ACTIVISION 

Hacker II 33 

Little Computer People 31 

Shanghai 29 

Tass Times 32 

ANTIC 

A-CALC PRIME 59 

CAD-3D 36 

CAD-3D STEREO 65 

STERE0TEK3-DPkg 125 

Flash 29 

Expert Opinion 72 

Others CALL 

ARTWORX 

Strip Poker 26 

Bridge 4.0 20 

Peggammon 12 

BATTERIES INCLUDED 

B-Graph Elite CALL 

D.E.G.A.S, Elite 49 

Paperclip Elite CALL 

Thunder 26 

Time Link 32 

ELECTRONIC ARTS 
Arctic Fox 27 



Auto Duel 32 

Marble Madness CALL 

SkyFox 29 

Chessmaster 2000 31 

Ullimalll 39 

Ultima IV 39 

EPYX 

Summer Games 26 

Winter Games 26 

Super Cycle 26 

Championship Wrestling 26 

World Games 26 

Rogue 26 

Trilogy 26 

INFOCOM 

All Titles CALL 

MICHTRON 

Cornerman 32 

DOS Shell 32 

M-Disk 26 

Mighty Mail 32 

Personal Money Manager 32 

Pinball Factory 25 

Utilities 39 

Time Bandits 26 

Trim Base 64 

Major Motion 26 

FIREBIRD 

Guild ol Thieves 29 

Slarglider 29 

The Pawn 29 

REGENT 

Regent Base 67 

Regent Word II 67 

SIERRA-ONLINE 

STONEWRITE 39 

Donald Duck's Playground .... 19 

Ultima II 39 

Kings Quest I. II or III ea33 

Space Quest 33 

TIMEWORKS 

Data Manager ST 52 

Swift Calc ST 52 

WordWriterST 52 

UNICORN 

Math Wizard 26 

Fraction Action 26 

Decimal Dungeon 26 

Read&Rhyme 26 

UNISON WORLD 

Print Master Plus 26 

Art Gallery I, II or III. .. ^. ..ea19 

ST LANGUAGES 

M0DULA2 54 

MOD 2 Developer's Kit 99 

MARKWILLIAMSC 119 

UniCEC 109 

GST-ASM 45 

ASSEMPRO 39 

GFA Basic 52 



Prices Are Per Box/ Pack of 10 DISKEl 


FTES Prices Are Per Box/ Pack of 1 




GENERIC 


SONY 


MAXELL 


BONUS 


WABASH 


avz 


SONY 


MAXELL 


VERBATIM 


5-/4' 


SS/DD 


DS/DD 


SS/DO 


DS/DD 


SS/DD 


DS/DD 


SS/DD 




SS/DD 


DS/DD 


SS/DD 


SS/DD 


2-5 


6,95 


7.95 


9.50 


11.95 


8.95 


10.95 


8.50 


2-5 


15.00 


24.00 


15.00 


15.00 


6-10 


5,95 


6.95 


8.50 


10.95 


7.95 


9.95 


7.50 


6-10 


14.00 


22.00 


14.00 


14.00 



RalnbowColoredCentechOlsks(2ea. Of 10 colors per pkg) 17 



"Silver" Centech Disks (20 Pack) 17 



TO ORDER, CALL TOLL FREE 1-800-S55-5835 



M-F 9am ■ 9pm • EST • SAT 10am • 4pm 
Ohio Residents, Order Status or Tech, Info Call (513) 294-6236 



NO EXTRA CHARGES FOR CREDIT CARDS! • We do not bill until we ship 

■ Hardware, mmimui 
Alaska, Hawaii. Puerto Rico (UPS Blue Label Only). APO, and FPO • Canadian orders, actual shipping pi 
repair or replacement • No free trials or credit • Returns subject to 15% re-stocking charge 
TION WE CHECK ALL CREDIT CARD ORDERS FOR FRAUD, 



TERMS AND CONDITIONS 

Minimum order $20 • C.O.D. to conlinental U.S. only, add $3 



Ohio residents add 6% sales tax • 



PlPci^p fillnw 3 W66k5 for 
;:"j:iT.o:,Z'^:::sZi:: 'T'^,!:;^Z::^"iC^Z:^. Ha=rmS;:V4rs;;t;^e^dmosU^essories:m^im^S3 . Overnightshipment^ilableatextracharge .^sh,. 
T.T°!.^7%"L Rico riiP.S RiMR I abel Qnlvl. APO. and FPO • Canadian orders, actual shipping plus 5%, minimum $5 • All defective products require a re urn authorization number to be fccepted for 

Due to changing market conditions, call loll free for latest price and availability ol product, FOR YOUR PROTEC- 



CIRCLE #114 ON READER SERVICE CARD 



^ Life in the Fast Lane 



continued 



1 MB BORDER COLOR HANDLER 


BCOLOR 










IMC 


COLTIM 


;Ad<) 1 to tiner 




BNE 


OLDCOL 


Ilf not B, exit 




LDA 


RANDOH 


;Get randoM a 




AND 


ttSBF 


;Make it <16 




ASL 


A 


;Mult blP IB... 




ASL 


A 






ASL 


A 






ASL 


A 






STA 


BORDER 


jSave the result 




LDA 


RANDOM 


;Get randoH tt 




AND 


tt3 


jHake it <4, 




CLC 




;add 6, and add 




ADC 


»6 


;it to previous 




ORA 


BORDER 


;result for the 




STA 


BORDER 


;new color! 


OLDCOL 

) 


RT5 






; VB CELL ANIHOTION 





LDA IMAGE 

ASL A 

ASL A 

ASL A 

TAY 

LDX «7 

LDA CELIMG.Y 

STA CHSETtBB 

INY 

DEX 

BPL ANIH 

LDH IMAGE 

INX 

CPX ttlB 

BCC ANXIT 

LDX no 

STX IMAGE 
RTS 



Get iHage n 
and Hultipl!/ 
it by 8 for an 
index into the 
cell data 
Copy 8 bytes 
; froH the data 
X ;table into 
char nuHber ie 



Point to next 

inage 

Last one done? 

HO, exit 

Yes, reset it 

Save new nun 



Cell inage data 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



.BYTE 
.BYTE 



$18, $18, 
*7E,S3C, 

*B8,$1C, 
*7E,S3C, 

$88, SIC, 
*7E,*3C, 

$88, $18, 
$7E,S3C, 

$88, $18, 
*77,$3C, 

$80, $18, 
$77,$3E, 

$88, $18, 
$76,$3E 

$88, $18, 
$76,$3C 

$88, $18. 
$6E,$3C, 

$88, $18, 
$6E,$3C, 

$88, $18, 
$6E,$7C 

$88, $18. 
$EE,$7C, 

$88, $18, 
$FE,$3C, 

$88, $18, 
$7E,$3C, 

$88,S38, 
$7E,S3C, 

$18, $38, 
S7E,$3C, 



$3C,$76 

$18, see 

$3C,S7B 
$18, $88 

$3E,$76 

$18, See 

$3E,$77 

$18, See 

$3C,$7F 
Sis, $88 

S3C,$7E 

$18, See 

$3C,S7E 
SIC, $88 

$3C,$7E 
Sic, $88 

$3C,$7E 
$18,S18 

$3C,$7E 
$38, $18 

$3C,$7E 
$38, $88 

$3C,$7E 
Sl8,$8e 

$3C,$EE 
$18, See 

$7C,SEE 
$18, $88 

$7C,$6E 

$18, see 

$3C,$6E 
$18, $08 



.INCLUDE nD!FLIFE2.M65 

»= SezEe 

.WORD RESET 
.END 



LIFE IN THE FAST LANE 
Atari 8-bit Ver 1.88 <-28-86 
Copyright 1986 Analog Conputing 
PrograMHed by JaHes Hague 

Part II 



VB DING HANDLER 



LDA SOUND 

CLC 

ADC ttSAB 

STA AUDCl 

LDA TONE 



;Get sound vol. 
;add distortion 
J value 
;and set it 
;set proper 



STA AUDFl ; frequency 

LDA SOUND ;lf vol is 8 

BEO XITDING ;then exit! 

DEC SOUND lElse lower vol 
RTS 



DRAH CURSOR 



;The cursor consists of Hissles 
;zero thru three. 



LDY CURY jMoue 18 bytes 

LDX tt? J of cursor shape 

LDA CURDAT.X ; data into 

STA MISSL,Y jnissile HOMory 

INY 
DEX 
BPL CDRAH 

LDX tI3 ;Set horizontal 

LDA CURK ;poSitiDns for 
STA HP0SM8,X ;the 4 



CLC 




;Missiles. Each 


ADC 


02 


;one is two 


DEX 




junits away fron 


BPL 


SETCHP 


;previous 


RIS 




;nissile. 



; 

;CursDr shape data: 8 bytes of 
;actual data plus leading and 
;trailing zeroes to Hake Hotion 
;easier . 

CURDAT .BYTE 8, 231, 12S, 12», 8 
.BYTE 8,125,129,231,8 



CONSOLE KEY ROUTINES 



Init console key flag 

Set CDNKEY to e if no console 
keys are pressed, else set it 
to 1 



jGet keys 
jlf not down 
jset to 8, 
jelse set to 1 



LDX 08 

LDA C0NS8L 

CMP IJ7 

BEO NOCKEY 
INX 

NOCKEY STX CONKEY 
RTS 

I 

jCheck console keys 



Return 8 in ace. if no console 
keys are pressed, else return 
the value of CONSOL in ace. 





LDA 


CONSDL 


;Any console 




CMP 


IJ7 


;keys pressed? 




BNE 


CCHKl 


;No, check More! 




LDA 


08 


;Yes, zero key 




STA 


CONKEY 


; flag and return 




RTS 




;a zero! 


CCHKl 


PHA 




;save CONSDL 




LDA 


CONKEY 


;FIag clear? 




BED 


CCHK2 


;Yes, go do it! 




PLA 




;No, get COHSOL 




LDA 


ae 


;back and return 




RTS 




,'a zero! 


CCHK2 


PLA 




;A legal press!! 




RTS 




;Return CONSOL! 


; CELL 


PLACEMENT HANDLER 


;Initi 


alize 






PLACE 










LDX 


n <MSG8 






LDY 


tJ >M5G8 






JSR 


PRINT 






LDA 


H127 


;lnit cursor 




STA 


CURY 


jcoordinates. . . 




LDA 


B12B 






STA 


CURX 






JSR 


DRAMCUR 


;Draw cursor 




JSR 


IHITCON 


;Set key flag 




LDX 


nSFF 


;ciear any stray 




STX 


CH 


;keypresses 




INX 




;ciear inportant 






SOUND 


;variables. . . 




STX 


PRESS 






STX 


SELECT 






STX 


DI5T 






STX 


OBICTL 


jSet VB node 


;Hain 


placenent loop 




CLRCLOK LDA 


08 


jciear clock 




STA 


RTCLOK 






LDA 


SELECT 


;DecreMent the 




BEO 


HANGON 


;select key 




DEC 


SELECT 


;tiHer, if set. 



LDA RTCLOK Jlf 1/38 sec 
CHP n2 ;has elapsed, 
BCC NOTYET ;handle the 
JSR MOUECUR (cursor and 
JMP CLRCLOK ;reset the clock 



I 

N8ESC 



LDA CH 

CMP »28 
BNE NOESC 
JSR CLEAR 
LDA nSFF 
STA CH 

JSR CHKCON 
BEQ HANGON 
ROR A 

BCS NDSTRT 
LDA ttl27 
STA UBICTL 
JSR QUIET 
JSR CLRMISS 
RTS 

ROR A 

BCC NEHMODE 
LDA 08 
STA SELECT 
BEQ HANGON 
LDA SELECT 
BNE HANGON 
LDA ItlB 
STA SELECT 
LDX MODE 
INX 

CPX as 

BNE MODEDK 

LDX ae 

STX MODE 
JSR SHOMODE 
JMP HANGON 



;If escape is 
;pressed, call 
jthe cell clear/ 
; reset routine 
;And clear the 
{keyboard! 

;If no console 
;keys, go loop! 
;If start is 
(pressed 
;put the MB 
;on hold, 
;kii sound, 
(Clear cursor, 
;and leave! 

;lf select is 
jpressed, handle 
;it, otherwise 
(Clear the sel- 
lect key tiner. 
(If tiHer is 
(set, then bye! 
(A legal press! 
(Reset key tiner 
(and add i to 
(the current 
(node naking 
(sure it isn't 
(greater than 4 

(Show new node 
(and loop! 



(Instruction nessage 



.5BYTE '■ Use Joystick to 
•SBYTE "place cells on " 
. SBYTE "board" 
.BYTE EOL 



CURSOR HANDLER 



JSR CHKTRIG 
LDA STICKS 
LDX DIST 
BNE MOVING 

CMP ai5 

BEQ XITMOUE 
STA DIR 

LDA as 

STA DIST 
BNE SLIDE 



(Check trigger 
(If cursor is 
(noving, then 
(go nove it! 
(If stick is 
(pushed, then 
(Start up the 
(cursor and go 
(slie it! 



LDX DIR (The cursor is 
CMP 0PDIR-5,X (noving! If 
ONE SLIDE Jthe stick is 
LDA 0PDIR-5,X (being pulled 

STA DIR Jin the direc- 

LDA as (tion opposite 

SEC (Of cursor 

SBC DIST (notion, reverse 

STA DIST Jits direction! 

LDX DIR (Calculate new 
LDA CURX (cursor x coord 
CLC (and nake sure 
ADC X0FF-5,X Jit is legal... 
TAY 





CMP 


a64 






BCC 


HOLDIT 






CMP 


aiss 






BCC 


DOY 


(Its legal! 


HOLDIT 


LDA 


ae 


(Stop all notion 




STA 


DIST 


J if a bad coord 


XITHOWE 


RTS 




J is found. 


DOY 


LDA 


CURY 


jcalculate new 




CLC 




jy coord and 




ADC 


YOFF-5, 


« J Make sure it 




CMP 


a7i 


J is legal. .. 




BCC 


HOLDIT 






CMP 


ai92 






BCS 


HOLDIT 






STA 


CURY 


JSave new y and 




STY 


CURX 


(new X, then 




DEC 


DIST 


(record nove 




LDA 


ae 


jand clear the 




STA 


PRESS 


jtrigger flag 




JMP 


DRAHCUR 


(Re-draw cursor! 



jMoveMent data 



.BYTE 1,1,1, e,SFF,$FF,SFF 

.BYTE e,B,e 

.BYTE l,SFF,8,e,l,SFF,B,B 

.BYTE 1,SFF 

.BYTE 10,9,11,8,6,5,7,8 

.BYTE 14,13 



;lf trigger is 
;pressed, the 
; trigger flag 
; is clear, and 
Jthe cursor is 
;aligned on a 
;square, then 
;process it 



( TRIGGER HANDLER 


; 

CHKTRIG 








LDX 


TRIGS 




BEfl 


YESCHK 




DEX 






STX 


PRESS 


NOCHK 


RTS 




YESCHK 


LDA 


DIST 




BNE 


NOCHK 




LDA 


PRESS 




BNE 


NOCHK 




LDX 


ttl 



(Set trigger 
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ANALOG COMPUTING 



STX PRESS ;flag 

STK GEHER ; Set generation 

DEX ;to one 

STK GENERti ;caiculate scrn 

JSR CONVERT ;addr of cursor 

SED jDeciMal Hode! 

LDA CPNT1],Y ;If on a space 

BEQ ADDCELL ;add a cell 



LDA ne i 

STA CPNTU.V 

LDA POP i 

SEC 1 

SBC ttl i 

STA POP ; 

STA MOST 1 
LDA POP+1 

SBC tte 

STA POP+1 
STA MOST+l 

LDX ttise 

BKE SETSND 

LDA nie 

STA CPNTll.Y 

LDA POP 
CLC 

ADC ni 

STA POP 

STA HOST 

LDA POP+l 

ADC na 

SIA POP+1 
STA M05T+1 

LDX n3a 

CLO 

LDA ttlS 

STA SOUND 

STX TONE 

JSR SHOGEK 

JSR 5H0P0P 

JSR 5H05TRT 

JMP 5H0H05T 



ReHDve a cell ■ 

subtract Cbcdi 
one fron the 
colony popula- 
tion, nax. pop. 
and starting 



Go set proper 
ding sound 

Add a cell! 

J Add 1 to the 
;colon!; popula- 
;tion, nax, pop. 
;and starting 
;pop. . . 



;Go set sound 

j'Decinal off! 
ISet correct 
; add/renove 
; sound 

;Show updated 
;cell data. . . 



COORDINATE CONVERTER 



Convert cursor pH coordinates 
to a screen nenory address 

call with: 

curx - cursor pM x coord, 
cury - cursor pn y coord. 

Return: 

pntl - base line address 
y reg - colunn offset 



COHVERT 






LDA 


CURY 


(•Convert PM y 


SEC 




; coord to board 


SBC 


071 


;row nunber 


LSR 


A 


; CB to 15) .. . 


LSR 


A 




LSR 


A 




PHA 




)Save the result 


STA 


PHTl 


;and put it into 


LDA 


ne 


;the work area 


STA 


PNTl+1 




LDX 


tt3 


;how Multiply 


MULTie ASL 


PNTl 


;the colunn nuM 


ROL 


PNTl+1 


;by ze to 


DEX 




I'detepMine the 


BPL 


MULT16 


;offset froM the 


PLA 




;beginning of 


ASL 


A 


;board Menory, 


ASL 


A 


jThis tal>es 2 


CLC 




;steps: 1st 


ADC 


PNTl 


;Mult the coluMn 


STA 


PNTl 


;by 16, then by 


LDA 


PNTl+1 


;4; now add the 


ADC 


no 


;two results and 


STA 


PNTl+1 


;save the Mess! 


LDA 


PNTl 


;Finally, add 


CLC 




;the offset to 


ADC 


a <[DISPHOB] ;the start 


STA 


PHTl 


;of board MOMory 


LDA 


PNTltl 


: f or the base 


ADC 


n >tDISP+ieO] iline 


STA 
1 

LDA 


PNTl+1 


;address! WHEW! 


CURX 


;Convept the 


SEC 




;cursor pm x 


SBC 


n4s 


;coord to the 


LSR 


A 


jcoluHn offset 


LSR 


A 


J froM the base 


LSR 


A 


;line addres. 


TAV 




jand put it in 


HTS 




;the y reg! 


; CLEAR/RESET CELLS 











LDA POP+1 ;If cell pop. is 
BNE CLEAROK ;B, then there 
LDA POP ;is no reason to 
BEQ XITCLR ;clear then! 

LDA n <BOARD ;If SOMe 
STA PNTl ;cells exist, 

LDA n >BOARD ;fill the 

STA PNTl+1 ;iexl6 board 

LDX nis ;area with 

LDA tte ;es (spaces! . . . 
LDV ttls 

STA (PNTII.Y 
DFV 



;Add 26 to CUI — 
;rent screen 
; address to get 
;address of 
; next 1 ine. . . 



BPL CLRCOL 
LDA PNTl 
CLC 

ADC It2e 
STA PHTl 
LDA PNTltl 

ADC tta 

STA PHTl+1 

DEX 

BPL CLRROM 



JSR SETCELL ;Reset cell data 
JSR SHOGEH jDisplay new 
;cel 1 data. . . 



JSR SKOPOP 
JSR SH0H05T 
JSR SH05TRT 
RTS 



/Return! 



CHECK FOR PAUSE 



Only the accUMUlator is used! 

AUSE LDA CH jSpace bar 

CMP tt33 J pressed? 

BHE HOPAUSE iNope, leave! 

LDA RTCLOK jYes! Save 





PHA 




;clocli value, 




JSR 


QUIET 


;shut up, and 




LDX 


tt39 


;save whatever 


TCOPYl 


LDA 


TEXT,K 


;text is on 




STA 


TSAVE.X 


;the Message 




DEX 




; line. . . 




BPL 


TCOPYl 






LDX 


tt <PAUSED ;and print a 




LDY 


tt >PAUSED ;special 




JSR 


PRINT 


; Message 


PAUZ 


LDA 


CH 


;wait for 




CMP 


tt33 


;a different 




BEQ 


PAUZ 


;key. 




LDX 


tt3» 


;When one is 


TC0PY2 


LDA 


T5AUE,X 


; found, res- 




STA 


TEXT,X 


;tore the old 




DEX 




.•Message line. 




BPL 


TC0PY2 






PLA 




;Restore clock 




STA 


RTCLOK 





Advan BASIC 

"spectacular.. ..an expanded BASIC with 
powerful new commands. ..brilliant work 
...send away for your copy today. You 
will not regret it." Apr86 ANTIC magazine 

"great. ..easy to use...l heartily recommend 
the package on the strength of Advan 
BASIC" Aug 86 ANALOG magazine 

*FAST: Compiles. Short programs run 
upto 20 times faster than in ATARI BASIC. 
Long programs upto 100 times faster. 

♦POWERFUL: Real, integer, and string 
arrays and variables. Strings are not 
dimensioned. IF THEN ELSE, REPEAT, 
WHILE, CASE, and multi-line IF commands. 
Functions and subroutines with up to 4 
arguments. 8 PM commands let you define 
and insert figures into PMs, auto, move 
them horizontal &/or vert, at rates you 
specify, & even auto, change PM figures 
for animation effects. 3 sound commands. 
You can set up and auto, play tunes. 
Built-in assembler. RAMDISK for 130XE. 

»EASY TO USE: Programs entered and 
edited as in ATARI BASIC. English 
error messages. KILL, RENAME, and 
DIR built into BASIC. 

♦ONLY $39.95. Includes 119 pg. manual 
& program which converts many ATARI 
BASIC programs to Advan form. Needs I 
disk drive &800XL/XE/48K 800. VISA/MC 
accepted. Shipping $3.95. COD add $2.00 

ADVAN LANGUAGE DESIGNS 

Box 159 Baldwin, KS 66006 

(9I3)-594-3420 



HOPAUSE RTS 

Pause Message 



;And go back! 



.SBVTE " 

. SBVTE " Paused" 

.BYTE EOL 



DELAY ROUTINE 



call with: 

ace. - It of jiffies to wait 

Return a non-e nuMber if a 
console key aborts the delay 
else return a e. 

Only the accuMulator is used! 

DELAY 

PHA ;ciear RTCLOK. . . 

LDA tta 

STA RTCLOK 
DELAY2 PLA JWair until tiMe 

CMP RTCLOK JiS up, or Until 

BEQ TIMESUP ja console key 
PHA ;is pressed 
JSR CHKCOH 
BEQ DELAYZ 
PLA 
RTS 
TIMESUP LDA tta 
RTS 



MAIN LIFE ROUTINE 



JSR INITCON 
LDA POP+1 
BNE DOLIFE 
LDA POP 
BNE DOLIFE 
LDX tt <MSG1 
LDY tt >MSG1 



;Init console 
;lf population 
iis zero, then 
jprint a Message 
;saying so and 
;exit. . . 



CIRCLE #115 ON READER SERVICE CARD 



ATARI 

WRITER 

PLUS 



A 



YOUR OWN 



CUSTOM 
PRINTER 
DRIVER 



$14.95 



DISK VERSION 



FREE SHIPPING! 



TYPE-IN 
VERSION 



$9,95 



Easy access to all your printer's 
features using Atariwriter-i- 
commands plus additional ones 
using special commands. 



Tell us make & model 
of your printer 



Send check/money order to: 

NJ residents add 6% sales tax. 



86 Ridgedale Avenue 
Cedar Knolls, NJ 07927 

(201) 455-7844 

(Sorry, no telephone orders, credit cards or COD's.) 
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^ Life in the Fast Lane 



continued 



JMP DOHSG 



DOLIFE 


LDX 


tJSFF 


;ciear keyboard 




STX 


CH 






INX 




;use the first 




STX 


CHORD 


;chord 


NEXTGEN 


JSR 


SCAN 


;scan board 




LDA 


ACTIVE 


;If no cells are 




BNE 


UNSTAB 


lactive then the 




LDX 


n <HSG5 


ipopulation has 




LDY 


11 >M5GS 


;stabili2edl 




JMP 


DOHSG 


; (risht Zink?J 


UNSTAB 


LDX 


n <HSGZ 


;UnsatbIe, so 




LDY 


Jt >M5G2 


;print life 




JSR 


PRINT 


;Hessage 




JSR 


GROMTH 


;Regenerate! 




BNE 


XITLIFE 


;lf aborted, bye 




LDA 


POPtl 


jif new popu- 




BNE 


CONT 


;lation is 0, 




LDA 


POP 


;then the colony 




BNE 


CONT 


;is dead, so 




LDX 


K <HSG3 


iprint a Message 




LDY 


It >MSG3 


iand exit. . . 




JMP 


DOHSG 




CONT 


LDA 


MODE 


;lf in FaST node 




CMP 


tt4 


;check for pause 




BNE 


NOTFST 


;or console key 




JSR 


PAUSE 


;then jump right 




JSR 


CHKCON 


;into the next 




BEQ 


NEXTGEN 


;generation 




RT3 






flOTF5T 


CMP 


n2 


;lf in Single 




BCC 


REGULAR 


;step Mode, 


SSTEP 


LDA 


TRIGS 


.■check for a 




BEa 


NEXTGEN 


jtrigger press. 




LDX 


n <MSG4 


jprint a Message 




LDY 


M >M5G4 


;to the user. 




JSR 


PRINT 


icheck console 




JSR 


CHKCON 


Jkeys, and 




BEO 
RTS 


SSTEP 


;repeat! 


REGULAR 


LDA 


no 


ilf in ReGular 




STA 


RTCLOK 


;Made, wait 1/2 


REGHftIT 


LDA 


RTCLOK 


la sec while 




CMP 


ti3B 


;checking for a 




BC5 


NEXTGEN 


; pause or a 




JSR 


PAUSE 


jconsole key. . . 




JSR 


CHKCON 






BEO 


REGUAIT 






RTS 






DOHSG 


JSR 


PRINT 


;Print Message, 




LDA 


tiize 


;wait a while. 




JSR 


DELAY 


;and then 


XITLIFE 


RTS 




jexit life! 



;Life related Messages 

) 

MSGl .SBYTE " No cells have bee" 

.SBYTE *'n placed on the boa" 

.SBVTE "rd" 

.BYTE EOL 
MSG2 .SBYTE " Let the" 

.SBYTE "re be life!" 

.BYTE EOL 
M5GJ .SBYTE " The cell c" 

.SBYTE "olony has died" 

.BYTE EOL 

MSG4 .SBYTE " Press trigger f" 

.SBYTE "or next generation" 

.BYTE EOL 
M5S5 .SBYTE " Celt populati" 

.SBYTE "on has stabilized" 

.BYTE EOL 
1 
>■ 

I 

, 

1 

jReturn n of active cells in 
JACTIVE and inforMation about 
;these cells in CADRL, CADRH, 
land CTYPE 



PLAYFIELD SCANNER 



1 



LDA 
STA 
LDA 
STA 
LDA 
STA 



ne jciear cell 
ACTIVE ; counter, and 
tt <[B0ARD-21] ;Move 
PNTl ; board address 
It XBOARD-ZU ;into 
PNTXtl ;PNT1... 



LDA 
STA 

DOROH LDA 
STA 

DOCDL LDA 
STA 
LDX 

SEARCH LDY 
LDA 
CMP 
BNE 
INC 

NOCELL DEX 
BPL 



ttlS 
ROM 

tits 

COL 
Its 

COUNT 
It? 



jinit row index 

;lnit coluMn 

I index 

;Ciear counter 



;scan 8 tiMes 
SCAIIADD,X ;Get offset 
CPNTIJ.Y ;ls there a 



MB 

NOCELL 

COUNT 



jcell here? 
jNo, ignore it! 
jYes, add 1 to 
J the counter and 
jkeep searching! 



LDX COUNT jIf the current 

LDY ttzi ;char is a space 

LDA (PNTII.Y jwith J friends 



BNE ACELL 
CPX tl3 
BNE NDACT 
BEQ RECORD 

CPX ttz 

BEO NOACT 
CPX tl3 
BEO NOACT 



jthen grow a 
jcell here 



)If it is a cell 
;with z or 3 
; friends, keep 
;it alive, else 



INC ACTIVE 
LDX ACTIVE 
STA CTYPE, H 
LDA PNTl 
CLC 

ADC ItZl 
STA CADRL, K 
LDA PNT141 

ADC ita 

STA CADRH, X 

LDA PNTl 
CLC 

ADC 111 
STA PNTl 
LDA PNT141 
ADC MO 
STA PNTl+1 
DEC COL 
BPL DOCOL 
LDA PNTl 
CLC 

ADC tt4 
STA PNTl 
LDA PNTl-fl 

ADC ne 

STA PNTl+l 
DEC ROW 
BPL DOROU 
RTS 



;kill it! 
;Record any 
;changes that 
;are Made to the 
;cell colony . , . 
; cthe cell is Zl 
jbytes ahead of 
J the current 
;address in 

JPHTIJ 

;Add 1 to PNTl 

ISO it points 

;to the next 

; board square. . . 



;Loop until 16 
;cols are done! 
lAdd 4 to PNTl 
;so it points 
;to the first 
;square in the 
;next row. . . 



;Loop until 16 
J rows are done! 



;5can data 

SCANADD .BYTE 0,1,2,28 

.BYTE 22,40,41,42 

) 

, 

; GROHTH/DEATH HANDLER 



Put growth/death characters 
in proper places on board 



GROHTH 

LDA 
CMP 
BNE 
JMP 

DOFX LDX 

SETCHAR LDA 
STA 
LDA 
STA 
DEX 
BPL 

J 

LDY 
LDX 

PLOTl LDA 
STA 
LDA 
STA 
LDA 
BNE 
LDA 
BNE 

DYING LDA 

PLOTIT STA 
DEX 
BNE 



MODE ;If in FaST Mode 

114 ;then skip the 

DOFX ; fancy aniMation 

FSTMODE ;and just do it! 

It? jInit the 

HB ; growth/death 

CHSETtOS.X ichars. , . 

CELIMG,X 

CHSETt96,H 

SETCHAR 



tie 

ACTIVE 
CADRL, K 
PNTl 
CADRH, K 
PNTH-1 
CTYPE, H 
DYING 

nil 

PLOTIT 
111 2 
(PNT1],V 

PLOTl 



Find all of the 
board locations 
where active 
cells or spaces 
are, and place 
growth or death 
characters 
there so we can 
aniMate thoH. . . 



How aniMate the growing and 
dying cells along with sound 
effects if the current Mode 
jperMits. 
) 

LDX It? iHandle 8 fraMes 
STX TEMP 
GROH LDX TEMP ;Get growth 

LDY GR0IMG,X ;iMage It and 
LDX ne ;copy the iMage 

GROANIH LDA IMAGES, Y ; into 

STA CHSET1^8S,X char 11... 

INY 

INX 

CPX ns 

BNE GROANIH 
LDX TEMP ;Get death 
LDY DIEIHG.X J iMage n and 
LDX ne ;copy the iMage 
DIEANIM LDA IMAGES, Y ; into 

STA CHSETt76,X jchar 12... 

IHY 

IHX 

CPX ne 

BNE DIEANIH 



; 



LDA N0TE1,X 
STA AUDFl 



LDA MODE ;lf Mode does 
BEQ DOCHORD ;not allow sound 
CMP n2 (then skip the 
BNE TIMEOUT ; sound routine 
LDX CHORD ;otherwise 

jgenerate the 
lappropriate 
LDA NOTEZ,X I3 note chord... 
STA AUDFZ 
LDA N0TE3,H 
STA AUDF3 
LDA TEMP 

ADC n$Al 
STA AUDCl 
STA AUDCZ 
STA AUDC3 

LDA ne 

STA RTCLOK 
LDA RTCLOK 
CMP n4 
BCS GROMORE 
JSR PAUSE 



jset voluMe and 
jdistortion 
i csane for all 3 
;channels) . . . 



;Ndw wait a 

; short while 

;Get clock 

jTiMe up? 

;Yes! 

jNo, check pause 





JSR 


CHKCON 


;and console key 




BEQ 


SLEEP 


;and loop! 




JSR 


QUIET 


;A console key 




LDA 


ni 


lis pressed so 




PHA 




;set return 




BNE 


REPLOT 


;value to 1 


GROMORE 


DEC 


TEMP 


jDo all franes 




BPL 


GROU 


;and when done 


FSTMODE 


LDA 


no 


;set return 




PHA 




lvalue to e 


; Update 


board and cell data 


REPLOT 


LDV 


ne 






SED 




jDeciMal Mode! 


PL0T2 


LDX 


ACTIVE 


;Get the 




LDA 


CADRL, X 


laddress of each 




STA 


PNTl 


;of the active 




LDA 


CADRH, X 


;cells and put 




STA 


PNTltl 


lit into PNTl 




LDA 


CTYPE, X 


jGet cell type 




BNE 


DODIE 


;cell is dying! 




LDA 


nie 


:Its growing so 




STA 


IPNT11,Y ;show a fully 




LDA 


POP 


jgrown cell and 




CLC 




;add one to the 




ADC 


ni 


icell population 




STA 


POP 


1 Cin deciMal 




LDA 


POPtl 


IMOde of course} 




ADC 


ne 






STA 


POPtl 






CMP 


MOST+l 


jIf the cell pop 




BEQ 


CKMOST 


;is greater than 




BCC 


PLOTNXT 


) cor=toJ the 


CKMOST 


LDA 


POP 


;highest pop so 




CMP 


MOST 


;far, then copy 




BCC 


PLOTNXT 


IPOP into MOST. . 


NEHMOST 


LDA 


POP 






STA 


MOST 






LDA 


POP + l 






STA 


MOST+l 






JMP 


PLOTNXT 




DODIE 


LDA 


ne 


;Its dying so 




STA 


CPNTll, 


/ ;plot a blank 




LDA 


POP 


ispace and 




SEC 




; subtract 1 froM 




SBC 


ttl 


;the population 




STA 


POP 






LDA 


POPtl 






SBC 


ne 






STA 


POP+l 




PLOTNXT 


DEC 


ACTIVE 


JLoop til 




BNE 


PL0T2 


JACTIVE is 8! 


XITGRO 


JSR 


QUIET 


;No sound! 




LDA 


GENER 


;Add 1 to 




CLC 




igeneration Cwe 




ADC 


ni 


;are still in 




STA 


GENER 


jdeciHal Model 




LDA 


GENERtl 






ADC 


no 






STA 


GENER+1 






CLD 




;No deciMal! 




LDX 


CHORD 


;Add 1 to Chord 




INX 




;nuMber Making 




CPX 


ne 


;sure it is not 




BNE 


CHORDOK 


igreater than 




LDX 


ne 


;5... 


CHORDOK 


STX 


CHORD 






JSR 


SHOGEN 


jShow new cell 




JSR 


SHOPOP 


;data. . . 




JSR 


SHOMOST 






PLA 




;and return the 




RTS 




;correct value! 


;Regeneration iMage data 



GROIMG .BYTE 0,8,16,24 

.BYTE 32,40,48,56 

DIEIMG .BYTE 56,48,40,32 
.BYTE 24,16,8,0 



IMAGES 



.BYTE e,e,56,126 
.BYTE 126,60,24,0 



.BYTE 8,8,56,124 
.BYTE 124,56,24,8 



.BYTE 8,8,58,124 
.BYTE 124,24,8,8 



.BYTE 8,8,24,68 

.BYTE 6e,24,e,e 



.BYTE 8,8,8,60 
.BYTE 60, 24, 8, e 



.BYTE 8,8,8,56 
.BYTE 56,24,8,8 



.BYTE 8,8,8,56 
.BYTE 56,8,8,0 



) 

/Chord data 

HOTEl 
N0TE2 



.BYTE 8,8,8,24 
.BYTE 24,8,8,8 



.BYTE 243,238,217 
.BYTE 284,193,182 
.BYTE 121,114,188 
.BYTE 1B2,96,J1 

H0TE3 .BYTE 60,57,53 
.BYTE 50,47,45 

; 

; INTRO i TITLE STUFF 



;Do quickie intra 
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TITLE 










J5R 


INITCON 


Init console 




LDO 


09 


Clear colors. . . 




STO 


COLDRl 






ST« 


C0L0R2 






STO 


COLBAK 






LDD 


tl <IDL 


Point to intro 




LI>X 


n >IDL 


display list. . . 




STfl 


SDLSTL 






STX 


SDLSTL+l 






LDft 


(168 


,Hait a sec. . . 




JSR 


DELAY 






BNE 


GOTOIT 






LDX 


OS 


;"Fade on" the 


Fai>EON 


INC 


COLORl 


; Magazine 




LDft 


»1 


;credits. . . 




JSR 


DELAY 






BNE 


GOTOIT 






DEX 








BPL 


FADEON 






LDA 


jtize 


;Let it hang 




JSR 


DELAY 


; around for a 




BNE 


GOTOIT 


;sec, then 




LDX 


n9 


; fade to black. . 


FflDEOFF 


DEC 


COLORl 






LDft 


Ml 






JSR 


DELAY 






BNE 


GOTOIT 






DEX 








BPL 


FADEOFF 






LDA 


nee 


jPause a little 




jsn 


DELAY 


;before showing 




BNE 


GOTOIT 


;the title 


;Display 


title screen 




i 


LDX 


n3 


; Set-up the 


CLOUD 


LDA 


TCOLORS, 


( ;proper 




STO 


COLDRO.X 


;title screen 




DEX 




;coiors. . . 




BPL 


CLOAD 






LDA 


It <TDL 


;lnstall the new 




LDX 


« >TDL 


;display list. . . 




STA 


SDLSTL 






STX 


5DLSTL+1 






LDA 


»127 


;Turn on cell 




STA 


VBICTL 


; an i Mat ion 



ATARI 

WRITER 

PLUS 



A 



YOUR OWN 



CUSTOM 
PRINTER 
DRIVER 



$14.95 



DISK VERSION 



FREE SHIPPING! 



TYPE-IN 
VERSION 



$9,95 



Easy access to all your printer's 
features using Atariwriter + 
commands plus additional ones 
using special commands. 



Tell us make & model 
of your printer 



Send check/money order to: 

NJ residents add 6% sales tax. 



86 Ridgedale Avenue 
Cedar Knolls, NJ 07927 

(201) 455-7844 

(Sorry, no telephone orders, credit cards or COD's.) 



THAIT JSR CHKCON ; and Wait for 

BEG THAIT ; a console key! 

GOTOIT RTS ;AHHhhhhh. 
Intro display list 



.BYTE 


112 


112 


112 






.BYTE 


112 


11? 


112, 


117 


117 


.BYTE 


112 


112 


112, 


117 


117 


.BYTE 


112 










.BYTE 


66 










.HORD 


ISCRN 








.BYTE 


65 










.WORD 


IDL 










reen data 










.SBYTE " 




Analog 


Con 


.SBYTE "puting presents 


.SBYTE " 


" 








reen display 1 


ist 






.BYTE 


112 


112 


112 






.BYTE 


112 


117 


112 






.BYTE 


79 










.WORD 


T5CRN 








.BYTE 


6,6 


6,6 


6 






.BYTE 


112 










.BYTE 


6 










.BYTE 


112 


112 








.BYTE 


6,7 










.BYTE 


112 


112 


112 






.BYTE 


6 










.BYTE 


65 










.HORD 


TDL 











Title screen data 



.BYTE e,e,ie,e,e,e,e,ie,e 

.BYTE 10,10,18, IB, 8, 18, 10,16 

.BYTE 18, 8, e 

.BYTE 8,8,74,8,8,8,8,74,8,74 

.BYTE 8,8,8,8,74,8,8,0,8,8 



.BYTE 8,8,10,8,8,8, 
.BYTE 18, le, 8, 8, 18, 



1,18,0,10 



FIFTEEN TIMES THE POWER! 



90% -«- CONFIDENCE LEVEL 



Why purchase only 1 thoroughbred handicapping 
strategy when you can have the POWER o( the 15 most 
popular handicapping strategies available? 

A proven computer program, designed by an M.B.A. of 
Finance, combines improved variations of the 15 most 
popular handicapping strategies into one easy program. 
This POWERFUL program called Multi-Strats can 
analyze a race using 15 strategies in a fraction of the 
time you analyze a race using just 1 strategy. 

Simply type m the answers to the program questions. All 
the info is in the Daily Racing Form. The results of the 15 
strategies will automatically appear on your screen or 
printer. Multi-Strals then tabulates the 15 strategy totals 
to give you an ultimate number for each horse. 

When 10 or more strategies select the same horse to 
win. that horse has over a 90% chance of winning. 

Multi-Strats package includes: * 15 strategies * 40 
page book (with money management) * S'A" or 3V2" 
disk or tape * telephone hotline * first class delivery * 
BONUS #1 Pick 6-10 Horse Program * BONUS #2 Lot- 
tery Program * B0NUS#3FreeLas Vegas trip eligibili- 
ty * All for $69.95 (Add $2 S & H) 

Multi-Strats' Video Tutorial is available for beginning 
computer operators and/or handicappers on VHS or 
Beta for $19.95. (Add $3 S & H) 

Order by Money Order, Check. Visa, MC. AMEX, or 
C-O.D. to Banana Software, Inc. Dept. SA. 6531 Park 

Avenue, Kent, OH 44240. 

ORDERS (216) 673-6969 (24 hrs.) 
INQUIRIES (216) 673-6167 (recording) 

10 DAY MONEY-BACK GUARANTEE 



ALL MODELS 



COMMODORE 
APPLE 
ATARI 



IBM 

RADIO SHACK 

COLECO 



.BYTE 8,8,74,8,8,8,8,74,8,74 
.BYTE 8,8,8,8,74,8,8,8,8,8 

.BYTE 8,8,10,8,8,8,8,18,8,18 
.BYTE 8,8,8,8,18,8,8,8,8,8 

.BYTE 8,8,74,74,74,74,8,74,8 
.BYTE 74,8,8,8,8,74,74,74,74 
.BYTE 8,8 

.SBYTE tl28," IN THE FAST " 

.SBYTE tl28,"LANE " 

.SBYTE " CREATED BY " 

.SBYTE ■■ " 

.SBYTE +128," JAMES HAG" 

.SBYTE +128, "UE " 

.SBYTE +64," PRESS STAR" 

.SBYTE +64, "T " 



Title screen colors 

TCOLORS .BYTE $46,$1«,$76 



for the 8-bit Atari 

Assembler and 
Linker 

ANALOG (March 1987) says: 

■ / thought I would never find an 
assembler as good as MAC/65, let 
alone a better one. 

■ The linker approach to writing 
software is superior. 

■ For $39.00 1 consider the Six Forks 
Assembler & Linker to be the best 
product on the market. 

Assembler, Linker, Manual . . . .$39.00 
Brochure Free 

Six Forks Software 

11009 Harness Circle • Raleigh, NC 27614 
(919) 847-2740 

VISA and MasterCard accepted 



CIRCLE #119 ON READER SERVICE CARD 



CIRCLE #117 ON READER SERVICE CARD 



CIRCLE #118 ON READER SERVICE CARD 



AT 

L&Y ELECTRONICS 
WE CARRY A LARGE 
SELECTION 
FOR THE 
800,800XL,65XE,130XE 
AND 
520 AND 1040ST 
EITHER VISIT 
OUR 
2000 SQUARE FOOT 
RETAIL AREA 
OR 
CALL THE BELOW NUMBERS 
FOR ANY PRODUCT 

L&Y ELECTRONICS INC. 

\XAK JEFFERSON DAVIS HWY. 
WOOOBRIDGE. VIRGINIA Z2UI 
f 7 MH?f 3<JJ METRO 643-1729 TOLL FREE 1-em)-255-W« 
KI SAJ Kti21 £El NO CREDIT CARD SURCHARGE 

fn.cXfipl SALE EN03 MAY 31.1597 ALL IN STOCK ITEMS ONLY 
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Famous National Brand 



NLQ 180 

Printer Sail 

160-1 80 CPS • Near Letter Quality • 

Lifetime Warranty 




199 



60% OFF LIST PRICE 



Betow 

Wholesale 

Cost Prices! 



$499.95 




All New up Front 
Panel Controls 



Fantastic Graphics 
Easy to Use 



Fantastic Price 



' ^B ^ 



NLO-180 Premium Qualify Printer 

Near Letter Quality Selectable From Front 
Panel Controls • High Speed Dot Matrix* 
Letter Quality Modes • 8K Buffer frees up 
computer 4-times faster • Pica, Elite, 
Italics, Condensed • Super Graphics • 
Business or Personal • Tractor/Friction • 
15 Day Free Trial • Lifetime Warranty on 
Print Head* • 6 Month Immediate 
Replacement Policy • 

NLO-180 Print Samples 



Th 


is is 


an 6xamp 


I& of ITALICS 


F^ 


r-tt-i -ai. 


n cz: ^cd 


Boldface 




Condensed Text 


Double-stri ke 


ex 


ample 


-Of Near 


Letter Quality 



APPLE — ATARI — EPSON 

Print Buffer 

8K bytes utility buffer 
Printing Direction 

Text Mode — Bi-directional 

Graphic Mode — Uni-directional 

Interface 

Centronics Parallel Port 

Paper 

Plain paper. Roll paper. Single sheet 

Fanfold, Multipart paper: max. 3 sheets 

(original plus 2 copies) 

Character Fonts 

Pica, Elite, Italics, Condensed 



NLQ 1 80 SPECIFICATIONS — ibm - commodore - etc. 



Printing Method 

Impact dot matrix 

Printing Speed 

160-180 CPS at standard character printing 

Printing Characters 

Standard 9x9 dot matrix 
NLQ 12 X 18 dot matrix (33cps) 

Character size: 2. 12 x 2.8 mm (standard) 
Character sets: Full ASCII character set (96) 
32 International characters 



INTERFACES 



Ink Ribbon Cartridge 

Ribbon Life: 3 million characters/cartridge 
Physical Dimensions 
Size: 15" x 12" x 5" 
Weight: 12.7 lbs. 
Maximum Number of Characters 

Standard: lOcpi 80 cpl 

Standard enlarged: 5 cpi 40 cpl 

Elite: 12 cpi 96 cpl 

Elite enlarged: 6 cpi 48 cpl 

Condensed: 17 cpi 132 cpl 

Condensed enlarged: 8.5 cpi 66 cpl 

Condensed elite: 20 cpi 160 cpl 



Atari $39.95 Apple II $44.95 Commodore $29.95 IBM $24.95 Laser 128 $19.95 Macintosh $49.95 



Shipping. Handling & Insurance Charges 

Add $10.00 for shipping, handling, and insurance. IMinois residents please add 
6'/,% soles tax. Add $20.00 for ALASKA, CANADA, HAWAII, PUERTO RICO 8 
APO-FPO orders. All orders must be in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier check, 
money order or personal check. Allow 1 4 days for delivery, 2 to 7 days for phone 
orders, 1 day express mail. Prices & Avoilobiiity subject to change without notice. 
VISA — MASTER CARD — C.O.D. Coll For C.O.D. Chorges. 



22292 N. Pepper Rd., Barrington, Illinois 60010 

Call (3 1 1) 382-5050 or 382-5244 

To Order We Love Our Customers 
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1 MHz IBM "" XT Compatible 
Computer System Sale 

C,«pleleSysl«ml«r(My COMPUTER DIRECT 

jB ^^ ^^OO 22292 N. Pepper Road, Barrington, III. 60010 

9 jF JW " The Computer Experts " 

Call (3 1 2) 382-5050 or 382-5244 for 

Free Catalogs of Over 1000 Programs & Accesories 

Best Service • Best Price • 1000 Programs • 500 Accessories • 15 Day Free Trial 



f 



1 MHz Super Turbo 
Comp atible Computer 




Look at all 
you get for 
only ^599''<' 

The complete system 




15 Day Free Trial 

90 Day Replacement Policy 

Double 90 Day Policy 
On Computer 



This compuler system is sold as a complete unil, NO SUBSTITUTIONS arc allowed 

List Price Sale Price 



10 MHz Super Turbo XT Computer '1295°° •49900 

* 5 I2K Memory »99-5 No exlra cost 

* Single floppy disk drive »1 29" No extra cost 

* Parallel printer port '59'* No extra cost 

* Serial printer port »59" No extra cost 

* Mouse/joystick port '59" No extra cost 

* RGB color graphics port igg^s jvjq extra cost 

* Hercules compatible monochrome port '79'* No extra cost 
MS I>OS 3.2 & CiNV Basic 1,9900 .9900 
12" Hi-Res 35 MHz Green Screen Monitor '249°° •9900 

(TTL & EGA compatible) 

Monitor interface cable '24" '19" 

Big Blue Printer 5,9900 *39" 

RS 232 IBM to Big Blue cable '19'= '9" 

2 rolls of paper '19" '5" 

Word First • Word Processor 19900 '39" 

l>ata First • Data Base S9900 •39" 

C'alc First • Spreadsheet 59900 •39'*' 



Home & Business 

This IBMfs;' XT compatible is perfect for your 
home and/or business uses. It makes life easier in 
more ways than you can imagine. Use the system 
for personal letters, form letters, address storage, 
listing valuables, figuring finances, school 
reports, business reports, calculations, business 
projections. ..the list can go on and on. With the 
addition of some of the thousands of software 
programs available for IBM® you can increase 
the capabilities of your system even further. A 
terrific home improvement, business enhancer, 
entertainment center & educational aid! 



[Total price v\>hen bought seporotely 



'2893" 



>S92< 



Save over ^275°° 
off sale prices! 

Complete System only '599 



Huill-in Ihc Super Turbo XT 



IBMe;' is the trgdennork of Interngtior^Ql Business Mochines Inc. 



VISA MASnoCADD C.O.D. Shipping, Handling & Insurance Charges and Information visa . MASTIRCARO C.O.D. 

Add $35.00 for shipping, handling ond insurance. Illinois residents please odd 6' 3% sales tax. Add $70.00 for CANADA, PUERTO RICO, HAWAII. ALASKA and APQ.FPO All 
orders must be in US. dollors. WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA S PUERTO RlCO. Enclose Cashier Check. Money Order or Personal Check, Allow 
14 doys tor delivery, 2 to 7 days lor phone orders. 1 doy express moil. Prices 8 Availability subject to change without notice. Please coll tor C,0,D, charges 
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(3 1 2) 382-5050 or 382-5244 

8am - 8pm CST Weekdays / 9am - 12 noon Saturdays 
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ATARI 130 XE 




Includes 128K Ram & 24 K Rom 

SALE $134 95 

(Add $10.00 shipping) List $249 



1050 127K 
DISK DRIVE 




SALE $159 95 

(Add $10.00 shipping) List $299 



Most of our products carry a minimum 90 day warranty 

from the date of purchase. If problems arise, simply 

send your product to us via U.P.S. prepaid. We will 

IMMEDIATELY send you a replacement at no charge 

via U.P.S. prepaid. This proves once again that... 

We Love Our Customers! 



ATARI SYSTEM 




Includes Atari 130 XE, 1050 Drive, 

Big Blue Printer, Interface, 2 Rolls 

of Paperand 2 Free Games. 

SALE $299.95 

(Add $25.00 shipping) List $857 



APPLE Ilc/IIe 

COMPATIBLE 

SYSTEM 

Marvelous! Save over $700! 

Includes Laser 128, Big Blue 

Printer, Printer Interface, 

12" Monochrome Monitor, 

Magic Window lie Word 

Processor, Magic Calc 

Spreadsheet, Magic Memory 

Database and 2 Rolls of Paper. 

SALE $499 00 

(Add $35.00 shipping) List $1228 



TV TUNER 

Now switch your computer 
monitor into a television set. 

This tuner has a 

UHF/VHF/Computer selctor 

switch with easy front panel 

I programmable selection buttons. 

A rabbit ear antenna for VHF 

I viewing and adapters for cable or 

outdoor antenna make this 

fantastic. 75 ohm terminal with 

300-75 ohm adapter. 

SALE$ 79.95 

I (Add $3 .00 shipping) List $ 1 30 



13" COLOR 
MONITOR 




High Resolution, 1000 character 

display, with audio speaker. 

I Perfect for your Atari Computer. 

SALE $179 95 

(Add $14.50 shipping) List $329 



BIG BLUE PRINTER 




This is the affordable printer 
you've waited for! S'A" letter 

size, 80 colurrm dot matrix, heat 
transfer printer features upper 

and lower case, underline, word 
processing, and much more. 

SALE$ 39 95 

(Add $7.50 shipping) List $199 




COMSTAR 1000 
PRINTER 




Print letters, doctmients, etc., at 
100 cps. Works in Near Letter 
Quality mode. Features are dot 
addressable graphics, underline, 
tractor and friction feed, margin 
settings, pica, elite, condensed, 
italics, super/subscript, & more. 
Centronics Parallel Port 

SALE $139 95 

Add $10.00 shipping) List $349 



m 



87 EP PRINTER & 

TYPEWRITER 

COMBINATION 

Superb Silver Reed letter quality 
daisy wheel printer/typewriter, 

just a flick of the switch to 

interchange. Extra large carriage, 

typewriter keyboard, automatic 

margin control, compact, 

lightweight, drop in cassette 

ribbon! Centronics Parallel 

Interface port is built-in. 

SALE$15995 

(Add $12.00 shipping) List $299 



160-180 CPS 
N.L.Q. 180 
PRINTER 

This printer has a Near Letter 

Quality button on the front panel. 

No more turning the printer on and 

off. The 8K buffer will free up 

yoiu' computer four times faster 

than conventional printers and the 

high speed will keep you 

computing more than printing. 

Super graphics along with Pica, 

Elite, Italics, and Condensed print. 

Ufetlmc Wamuity on Print Head 

plus 6 month immediate 

replacement policy. Centronics 

Parallel Interface port. 

SALE$ 199.00 



MQSterCard 



TO ORDER CALL (312) 382-5244 

8 am - 8 pm GST Weekdays / 9 am - 12 noon CST Saturdays 




CIRCLE #121 ON READER SERVICE CARD 



BEST SERVICE IN THE USA • 1 DAY 
EXPRESS MAIL • OVER 500 



15 DAY FREE TRIAL 

CUSTOMER LIST OF OVER 

3,000,000 - LARGEST IN THE USA 



DISK FILER 

Dust and dirt can hurt your disks. 
Proper filing and protection of 
your disk collection will reduce 

unneccessary wear and tear. Over 
50 disks fit in the filer. 



List $24.95 



SALE $12.95 SALE $16,95 



JOYSTICK SALE 

This Pro 5000 with niicroswitches | 

has been rated No. 1 in joysticks. 

Arcade Quality! 



List $24.95 



COMPUTER 
CLEANERS 

TV /Monitor Screen Restorer / 
Oeaner Kit • Disk Drive Cleaner 
• Anti-SUtlc Keyboard Cleaner 

•Choose any of these three 

computer cleaners for only 

$9.95 each! 

SALE $9 95* 

List $19.95 






ATARI WRITER 
WORD PROCESSOR 

Write papers, schoolwork, etc. 

quickly and efficiently with No. 1 

Atari word processor w/spelling 

checker. Make changes with 

preview modes. Includes: full 

screen editing, double column 

printing, condensed, elongated, 

page no.'s headers-footers, 

margin set and more. 

SALE $49 95 

List $99.00 



DOUBLE SIDED DOUBLE DENSITY DISK 

.29^ ea. 



100% Certified 5 'A" floppy disks. Lifetime 
Warranty. 1 Box of 100 -$29.00. List $1.99 each. 



AMER. EDUC. COMPUTER 



BIOLOGY FACTS (D) $9.9S I 

ELEM. SCIENCE FACTS (D) ».»5 I 

U.S. GEOGRAPHY FACTS (D) 9.95 I 

U.S. GOVERNMENT (D) 9.95 I 

U.S. HISTORY FACTS (D) 9.95 I 

WORLD GEOGRAPHY FACTS (D) . 9.95 I 

WORLD HISTORY FACTS (D) 9.95 1 

FRENCH VOCAB. SKILLS (D) 9.95 

SPANISH VOCAB. SKILLS (D) 9.95 

AEC SPELLING (D) 19.95 I 

LEARN TO READ (D) 19.95 I 

READING COMPREHENSION (D) 19.95 I 



SPINNAKER 



DELTA DRAWING (Q ».»5 I 

PACEMAKER (Q ».»5 

AEROBICS (D) t.»5 I 



SYNAPSE 




DESIONWARE 



TYCOON (D) $14.95 

MILLIONAIRE (D) 14.95 

TRAP A ZOID (D) $9.95 

SPELLAGRAPH (D) 9.95 

MATH MAZE (D) 14.95 

CRYPTO CUBE (D) IJ.95 

SPELLICOPTER (D) 14.95 

MISSION ALGEBRA (D) 24.95 

SAT WORD ATTACK SKILLS (D) . 22.95 
PSAT WORD ATTACK SKILLS (D) 22.95 
INTRO TO COUNTING (D) 22.95 



SYNFILE (D) $32.95 

SYNCALC (D) 29.95 

SYNCALC TEMPLATES (D) 14.95 



WEEKLYREADER 


PICTURE BUILDER (D) 


$16.95 
.16.95 
. 16.95 
.16.95 
.16.95 
.16.95 
.16.95 


STICKYBEAR BOP (D) 


STICKYBEAR NUMBERS (D). . . . 

STICKYBEAR BOUNCE (D) 

STICKYBEAR OPPOSITES (D) . . 
STICKYBEAR ABC (D) 


STICKYBEAR SHAPES (D) 



PLEASE CALL TO ORDER: PRICES MAY BE 
LOWER & WE OFFER SPECIAL SYSTEM DEALS 



ATARI SOFTWARE 



I 




FIGHT NIGHT (D) $18.95 I 

HARDBALL (D) lg.95 I 



ACTIVISION 






PITFALL/DEMON ATTACK (D) . $12.95 

HACKER (D) 12.95 

GREAT AMER. ROAD RACE (D) . . I2.9S 
GHOSTBUSTERS (D) 12.95 | 

HOME PACK (D) $19.95 I 

PAPER CLIP (D) 29.95 | 

PRINT SHOP (D) $25,951 

GRAPHICS LIB. 1.2 or 3 (D) 15.951 

COMPANION (D) 22.951 

KARATEKA (D) 1S.95I 



BRODERBUND 



FISHER PRICE 


LINKING LOGIC (C) 


..$9.95| 


DANCE FANTASY (C) 


... 9.95 ■ 


MEMORY MANOR (C) 


. . . 9.95 ■ 


LOGIC I FVELS (C) 


... 9^95 B 



CAVERNS OF KHAFKA (D) $10.95 I 

TALLADEGA (D) W.95 I 

FORBIDDEN FOREST (D) I«.»S I 

MASTERS OF TIME (D) 10.95 I 

SUPER HUEY (D) 12.JS I 

TEXT PRO/DATA PRO (D) I«.»5 I 



DATASOFT 



PAC MAN (D) ».»S I 

CONAN (D) 9.95 I 

POLE POSITION (D) 9.95 I 

DIG DUG (D) 9.95 I 

MR. DO (D) 9.95 I 

BRUCE LEE (D) 12.95 I 

ZORRO (D) 9.95 I 

OOONIES (D) 12.95 I 

221 B BAKER STREET (D) 10.95 I 



ELECTRONIC ARTS 



AGE OF ADVENTURE (D) $9.95 I 

SUPER BOULDERDASH (D) 9.95 I 

SEVEN CITIES OF GOLD (D) 9.9S I 

ONE ON ONE (D) ».»5 I 

PINBALL CONSTRUCTION (D) . . . . 9.95 I 

MUSIC CONSTRUCTION (D) 9.95 I 

RACING DESTRUCTION (D) 9.9S I 

GOLDEN OLDIES (D) I9.9S I 

MOVIE MAKER (D) 12.95 I 

ROMMEL BATTLES TOBRUK (D) . lt.9S I 

STARFLEET I (D) 32.95 I 

BATTLE OF CHICKAMAUGA (D) . 23.95 I 




JflOXJ JOYSTICK (D) $14.95 

BALL BLAZER (D) 4.95 

SUMMER GAMES (D) 14.95 

RESCUE ON FRACTULUS (D) 4.95 

WORLD KARATE (D) 10.95 




SARGON II (D) $9.95 

SAT VERBAL (D) 14.95 

SAT MATH (D) 14.95 

SAT PRACTICE TEST (D) 14.95 [ 



HI TECH EXPRESSIONS 



CARD WARE (D) $7.95 ^M 

HEART WARE (D) 7.95 ^M 

PARTY WARE (D) 9.95 ^H 

WARE WITH ALL KIT (D) 9.95 ^B 

HOLIDAY PRINT PAPER (D) 7.95 ^H 



INFOCOM 



MOONMIST (D) $22.95 I 

BALLYHOO (D) 22.95 I 

HITHHIKER'S GUIDE (D) 22.95 I 

WISHBRINGER (D) 22.95 I 



PEACH TREE 



GENERAL LEDGER (D) 137.95 

ACCOUNTS RECEIVABLE (D) . . . . 37.95 
ACCOUNTS PAYABLE (D) 37.95 



BATTLE OF ANTIETAM (D) 31.95 I 

GETTYSBURG (D) 32.95 I 

MECH BRIGADE (D) 34.95 I 

NAM (D) 13.95 I 

U.S.S.A.F. (D) 34.95 I 

KAMPFGRUPPE (D) 32.9S I 

FIELD OF FIRE (D) 23.95 I 

CARRIER FORCE (D) 32.9S I 

WAR SHIP (D) 3495 1 

BROADSIDES (D) 13.9S I 

COMPUTER AMBUSH (D) 3I.9S I 

BATTLE CRUISER (D) 34.95 I 

COMPUTER QUARTERBACK (D). 21.95 I 
COLONIAL CONQUEST (D) 23.95 | 



TYPESETTER (D) ni.9S 

RUBBER STAMP (D) 10.95 

PAGE DESIGNER (D) 10.95 

P.S. INTERFACE (D) 10.95 

1ST XLENT WORD PROCESSOR (D) . . 10.95 
MEGA FONT{D) 10.95 



Shipping. Handling & Insuranco Infornvotlon and Charges 

Add $3.00 (unlMs noted) lor shipping, handling and insurance. Illinois residents please odd 6V, % sales tax. Add $6.00 (double the amount) (or CANADA, PUERTO RICO, HAWAII, ALASKA, 
APOFPO orders. All orders must bo in U.S. Dollars. WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. Enclose Cashier Check, AAoney Order or Personal Check. Allow U days for 

deliver/, 2 to 7 days for phone orders, 1 day express mail. Prices & Availability subject to change without notice. Hardware shipping prices vary occording to weight. Please call for amount. 
VI «A - ^rtASllllK:A»p - c. O.D. No APO-FPO for Monitors. Monitors con only be shipped to 48 contiguous United Stotes. 
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REVIEWS 






Panak 
strikes! 



Revievi^s of the latest 
software 



by Steve Panak 



It seems that the summer drought is 
upon us again. The few months before the 
summer Consumer Electronics Show are 
the most barren of the year. I would give 
anything to be back in December, with all 
its holiday releases. Then I look out the 
window and wonder. Perhaps there is 
something better to do than play these 
games day in and day out. Maybe there's 
something to be gained by running on the 
freshly cut grass, breathing the clean, 
spring air. Maybe there are worlds outside 
of my throbbing CPU. 

Then I come to my senses and release 
the PAUSE key 

Age of Adventure 

by Stuart Smith 
ELECTRONIC ARTS 
1820 Gateway Drive 
San lUlateo, CA 94404 
48K Disk $14.95 

Into a world where the software prices 
of major manufacturers are typically out 
of this world. Electronic Arts has decid- 
ed to unleash a package which not only 
has a below-the-average suggested retail 
price, but also contains two complete ad- 
venture games. Even if these games are 
simply fair, this marks the beginning of 
a new trend — a trend I, and probably the 
rest of you, can live virith. 

Age of Adventure is one of the latest re- 




leases from Electronic 
Arts. This double-sided 
disk contains two com- 
plete programs. Side one 
The Return of Heracles 
and the flip side, Ali Baba 
and The Forty Thieves, offer 
bargain buyers two complete 
adventure games to explore 
And, while these adventures are 
not quite up to par with some 
other products out there, their price 
is also quite a bit lower, resulting in 
much more gaming for the dollar. 

The plots and goals of both these games 
are simple. In Ali Baba, it is your task to 
rescue the princess Buddir al-Buddoor, 
who has been kidnapped (or, rather, prin- 
cess-napped) and secreted in a mountain 
stronghold . You must brave the confusing 
caverns to rescue her. In Heracles, you 
repeatedly visit the oracle, who gives you 
tasks. Typically, you're required to kill — 
or otherwise injure — some other being. 
Not very original, but rather entertaining. 
The oracle also provides clues (unrefer- 
enced to any specific task), which get bet- 
ter as you increase your contributions to 
the priests. 

As occurs in most fantasy-adventure 



games, you meet and battle a number of 
monsters. How well you do is dependent 
upon your strength, which is deter- 
mined by the values of a number of at 
tributes. Each game has the familiar 
attributes of strength, vigor, speed and 
dexterity. However, unlike most ad- 
venture games, you don't build char- 
acters. Rather, you choose from 
lists of heroes, each with prede- 
termined attributes. Also unusual 
is that, in Ali Baba, you're able to 
complete the game utilizing cunning — 
with no fighting or violence. It may be a 
little (or maybe a lot) harder, but it is pos- 
sible for pacifists to prosper in Ali Baba. 
Reincarnation is also a possibihty in Ali 
Baba, while you get only one life in Her- 
acles. The latter has the additional bene- 
fit of teaching players a bit about ancient 
Greek mythology. Both games allow you 
to control more than one adventurer at a 
time, each becoming active in rotation. 
You may assemble your group of adven- 
turers into a party — although, in Hera- 
cles, you must first unite your party, as 
the players start in different rooms. Ali 
Baba automatically places the heroes to- 
gether In Heracles, you can permit one 
of your members to desert. He will then 
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ANALOG COMPUTING 



Software Discounters Qp^^ 

^' ^llldli#a 'Free shipping on orders over 

For Orders Only— 1-800-225-7638 $100 in continental USA 

PA Orders- 1-800-223-7784 • No surcharge for ViSA/MasterCard 

Customer Service 412-361-5291 -Your card is not charged until we ship 



ABACUS BOOKS 
ST Q»in Prog. R»(. 
ST Graphics & Sound CALL 
ST Internals FOR 

ST Machine LOW 

Language PRICES 

ST Midi Programming 
ST Peeks & Pokes 
ST 3'D Graphics 
ST Tricks & Tips 
A BACUS SOFTWAR E 

AssemfPro ST $39 

DalaTrleveST S33 

FonWMTST t33 

Paint Pro ST $33 

Text Pro ST $33 

ACADEMY 

Typing Tutor ST $23 

4 CCESS 

Leader Board Qolf (D) . . $25 
Leader Board Golf ST . . $25 
L.B. Tourn. Disk «1 ST $14 
L.B. Tourn. Disk #1 (D) ..$14 

Tenth Frame ST $25 

Triple Pack: BH1, BH2, Raid 
Over Moscow (D) ....$14 
A CCOLAD E 

Fight Night (D) $19 

Hardball (D) $19 

Hardball ST $29 

Mean18GolfST $25 

Mean 18 Famous 

Course Disk ST $14 

A CTIVISIO N 
Great American Cross 
Country Road Race (D) $1 6 

Hacker (D) $16 

Hacker 2 ST $33 

Music Studio ST $39 

Music Studio (D) $23 

PalntworVs ST $44 

Portal ST $33 

Shanghai ST $29 

Teas Times In 

TonetownST $33 

AMERICAN EDUCATIONAL 
COMPUTE R 

Biology (D) $14 

French (D) $14 

Grammar(O) $14 

Science: Grades 3/4 (D) $14 
Science: Grades 5/6 (D) $14 
Science: Grades 7/6 (D) $14 

Spanish (D) $14 

ARTWORX 

Brldge4.0(D) $16 

Bridge 4.0 ST $19 

Bridge 5.0 ST $23 

Hole In One Golf ST $14 

Mall List ST $14 

Strip Poker (D) $21 

Strip Poker ST $25 

Female Data Disk 1 $14 

Male DataDlsk2 $14 

Female Data Disk 3 ... $14 

A VANTAG E 

Spy vs. Spy 1 » 2 (D) . $9.88 

BATTERIES INCLUDED 

Degas ST $23 

Degas Elite ST $49 

Isgur PorMollo System ST$129 

Paperclip (D) $36 

Paperclip w/Spell 1 30XE $36 

Thunder ST $25 

BRODERBUND 

Champ. Loderunner(D) .$19 

Karatska(D) $19 



Loderunner (D) $23 

Print Shop (D) $26 

Print Shop Graphics 

Library #1, *2, #3 (D) $16 Ea. 

P.S. Companion 64K (D) . $23 

CENTRAL POINT 

Copy2ST $25 

CD>I 

America Cooks Series: 

American ST $9.88 

Chinese ST $9.88 

FrenchST $9.88 

Italian ST $9.88 

Mexican ST $9.88 

DATASOF T 

Alternate Reality: 
TheCltyST $23 

Mercenary ST $23 

DAVIDSON 

Math Blaster (D) $33 

Spell lt(D) $33 

Word Attack (D) $33 



Skylox ST $29 

Star Fleet I (D) $33 

Star Fleet 1 ST $33 

EPYX 

Ballblazer(O) $9.88 

Champ. Wrestling ST . . . $25 
Dragonrlders Pern (D) . $9.88 

Koronis Rift (0) $9.88 

Rescue on Fractalus (D) $9.88 

Rogue ST $23 

Sub Battle Simulator ST $25 

Super Cycle ST $23 

Temple Apshal Trilogy (D)$14 
Temple Apshal Trilogy ST$1 4 

The Eidolon (D) $9.88 

Winter Games ST $23 

World Champ. Karate ST. $25 

WoridGameaST $25 

FIREBIRD 

Golden Path ST $29 

Guild of Thievea ST . . $29 

The Pawn (D) $25 

The Pawn ST $29 



Leather Goddesses (D) .$23 

Trinity ST $25 

Wlshbringer(O) $23 

Zort(1(D) $23 

Zorti Trilogy (D) $39 

* All titles In stock tor 
520 ST— Call lor prices 
MASTERTRONIC 

Action Biker (D) $6.88 

Elektragllde (D $6.88 

Magnum Joystick $12 

Nlnja(D) $6.88 

NlnJaST $14 

Renegade ST $14 

Speed King (D) $6.88 

The Last V8(D) $6.88 

Vegas Poker 

& Jackpot (D) $6.88 

MICHTRON 

BBS 2.0 ST $49 

Calendar ST $19 

Corner Man ST $33 

GFA Basic Int. ST $49 



MINDSCAPE 

Balance of Power ST . . . $33 

Bop & Wrestle (D) $19 

Brattacus ST $29 

Crossword Magic (D) . . $33 

High Holler ST $33 

Infiltrator (D) $19 

Trail Blazer (D) $19 

MINDSCAPE CINEMAWARE 
Defender of the 

Crown ST Call 

S.D.I. ST ..$33 

SInbad: Throne of 

the Falcon ST Call 

The King of Chteago ST . . Call 
ORIGIN 

Autoduel(D) $33 

AutoduelST $33 

Ofl™(D) $26 

Ogre ST $26 

Ultima 3 ST $39 

Ultima 3(D) $32 

Umma4(D) $39 




Great Fantasy 
Role-Playing — 
You're a 
Techno- 
Scavenger 
Salvaging Hi- 
Tecti Weapons 
from \.he 
Ancients! 



Great Fantasy 
Adventure— 
The EidolonTM 
Transports You 
Into a Magical 
Realm 



Ep/X 



Till! HIDObON 




MONTHLY 
MADNESS 
SALE 

Your Choice 

988 
Each 

Special Bonus: 
Buy any 3, get the 
4th FREE 




Realistic, 

Three- 

Dimen- 

sional 

Depth 

Perception 



Available for: 
XL/XE <dlsk) 



Atari 



epyx 



LUCASFILM GAMES 

Rescue on Fractalus! 





- 


V 


J \ 


V 



Realistic, 
Three- 
Dimen- 
sional Land- 
scape 



ELECTRONIC ARTS 
Software Classic Series: 
Age of Adventure (D) . . $9.88 

Archon (D) $9.88 

Archon 2: Adept (D) . . . $9.88 
Financial Cookbook (0) . $9.88 
Mall Order Monsters (0) . $9.88 

Movie Maker (D) $9.88 

M.U.L.E.(D) $9.88 

Music Const. Set (0) . . $9.88 

One<on<One(D) $9.88 

Pinball Const. Set (D) $9.88 
Racing Dest. Set (D) . $9.88 
Seven Cities of Gold (D) . $9.88 
Super Boulder Dash (D) . $9.88 
Touchdown Foottuill (D) $9.88 
ELECTRONIC ARTS 

ArctlcfoxST $29 

Chessmaster 2000 (D) ..$26 
Chessmaster2000ST ..$29 
Financial Cookbook ST . $33 
Lords of Conquest (D) ..$23 
New Tech 

Coloring Book ST $14 

Rommel Battles 

forTobruk(D) $26 



Star Glider ST $29 

F IRST BYT E 

First Shapes ST $33 

Kid Talk ST $33 

Math Talk ST $33 

Speller Bee ST $33 

'These programs talkl 

FJL 

DungeonmasterST . . . $25 

R. P.V.ST $25 

SundogST $25 

GAMESTA R 

Champ. Baseball ST $29 

Champ. Basketball ST . . $29 
Champ. Football ST ... $29 
HITECH EXPRESSION S 

Award Ware (D) $9.88 

Card Ware (D) $6.88 

Hearl Ware (D) $6.88 

Party Ware (D) $9.88 

INFOCOM 

Ballyhoo (D) $23 

Bureaucracy (D) $23 

Hitchhiker's Guide (D) . $23 
Hollywood Hlllnx(D) ...$23 



GFA Basic Compiler ST . $49 

Karate Kid II ST $25 

Major Motion ST $25 

Match Point ST $25 

M-DlskPlusST $25 

Mighty Mall ST $33 

Personal Money Mgr. ST $33 

Pinball Factory ST $25 

Space Shuttle II ST $25 

Time Bandit ST $25 

Trim Base ST $59 

MICROLEAGUE 

Baseball (0) $25 

Box Score Stats (D) $16 

General Manager (D) . . $25 

1985 Team Data Disk (0) $14 

1986 Team Data Disk ... $14 
WWF Wrestling ST ...Call 
MICROPROSE 

F1 5 Strike Eagle (D) . . $23 
Kennedy Approach (D) . . $16 

Silent Service (D) $23 

Silent Service ST $25 

Top Gunner (0) $16 

MILES COMPUTING 
Herrter Strike Mission ST . $33 



OSS 

Action (R) $47 

Action Tool Kit (D) $19 

Basic XE(R) $47 

Basic XL (R) $37 

Basic XL Tool Kit (D) . ..$19 

Personal Pascal ST $49 

PGA 

Graphic Arllst ST $129 

Font Editor ST $49 

P ROGRESSIV E 

Loglstlx Jr. ST $59 

Loglstlx1040ST $95 

Superbase ST $95 

SHELBOURNE 

Pool ST $19 

Shuffleboard ST $19 

SIERRA 

Black Cauldron ST $25 

Donald Duck's 

Playground ST $16 

Kings Quest 

1,2,or3ST $33 Ea. 

Space Quest ST $33 

Winnie the Pooh ST $16 



SOFTLOGIC 

Publishing Partner ST . $95 
SOLID GOLD 

Pitfall/Demon Attack (D) $9.88 
S PECTRUM HOLOBYTE 

Gato ST $23 

SPRINGBOARD 
Certificate Maker ST ...$33 
SS/ 

Gettysburg (D) $37 

Phantasle(D) $25 

PhantasleST $25 

Phantasle 2 ST $25 

Phantasle3ST Call 

RlngsofZllflnST Call 

Roadwar 2000 ST Call 

War Game Const. Set (D)$19 

Wizard's Crown (D) $25 

Wizard's Crown ST Call 

SUBLOGIC 

Flight Simulator 2(D).. $32 
Flight Simulator 2 ST ... $33 
F.S. Scenery Disks ...Call 

Jet ST Call 

SYNAPSE 

Syn-Calc(D) $33 

Syn-Flle(D) $33 

TDl 

Modula2ST $49 

Module 2 (Dev.) ST $95 

TIMEWORKS 

Data Manager ST $49 

SwIftcalcST $49 

Word Writer ST $49 

TRONIX 

S.A.M.(D) $19 

UNICORN 

Animal Kingdom ST ... . $25 

Decimal Dungeon ST . . . $25 

Fraction Action ST $25 

KInderama ST $25 

Math Wizard ST $25 

Read i Rhyme ST $25 

UNISON WORLD 

Art Gallery 1 ST $19 

Ar1G8llery2ST $19 

Print Master ST $25 

VALUE TIME 

Calendafs & Stationery ST$9J8 

Greeting Cards ST $9.88 

Signs li Banners ST ..$9.88 
Art Library 1 or 2 ST . $9.88 Ea. 
VIP TECHNOLOGIES 
VIP Professional ST . $149 
XLENT 

First XlentW.P.(D) $19 

Page Designer (D) $19 

P.S. Intertace(D) $19 

Rubber Stamp (D) $19 

Rubber Stamp ST $25 

Typesetter (D) $23 

Typesetter Elite ST $33 

Write 90» ST $19 

A CCESSORIE S 

Anchor VM 520 300/1200 

Baud Modem ST $129 

Bonus 5'/4 SS.DD $5.99 Bx 
Bonus 5% DS, DD $6.99 Bx 
CompuServe Starter Kit . $23 

Disk Case (40<3'/t) $9 

Disk Case (75<S'/4) $9 

Disk Drive Cleaner^'/i ..$9 
Epyx 500XJ Joystick ...$14 

WIcoBoss $12 

WIco Bat Handle $17 



P.O. BOX 111327— DEPT. AN — BLAWNOX, PA 15238 



•Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order Orders with cashiers check or money order shipped Immediately on In stock Items 
Personal & Company checks, allow 3 weeks clearance. No C.O.D.'s! Shipping: Continental U.S.A.— Orders under $100 add $3; tree shipping on orders over tlOO. AK, HI, FPO 
APO—add $5 on all orders. Canada i Puerto Rico— add S10 on all orders. Sorry, no other International orders accepted! PA residents edd 6% sales tax on the total amount o'l order 
Including ahlpplng chargesl REASONS FOR CALLING CUSTOMER SERVICE-412.361S291 (1) Status of order or back order (2) If any merchandise purchased within 60 days from 
S.D. of A. Is detective, please call for a return authorization number. Defective merchandise will be replaced with the same merchandise only. Other returns subject to a 1 5% restock- 
ing charge. After 60 days please refer to the manufacturers warranty Included with the merchandise & return directly to the manufacturer. Customer service will not accept collect 
calls or calls on S.D. OF A.'s SOOH order llnesi Have you seen our on line catalog of 1000 sofhwars titles for Commodore, Atari, Apple, IBM and Amiga? It's on CompuServe's Elec- 
tronic Mall— Just type GO SDA and shopping for software will never be the same again! HOURS: Mon.Frl. 9AMS:30 PM, Sat. lOAM-APM Eastern Time. Because this ed had to be writ, 
ten 2-3 mos. l)efore II was published, prices t availability are subject to chengel 
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venture out on his own, controlled by the 
computer 

As each side of the floppy contains one 
of the programs, you'll need a blank disk 
if you want to save any games. Both offer- 
ings, while different in content, have simi- 
lar control interfaces — so you won't be 
burdened by learning two completely dif- 
ferent systems. You choose to use either 
the joystick (preferred] or the keyboard. 
Movement is controlled by the compass 
direction on the stick, or by the cursor 
control keys. Other options (such as at- 
tacking, defending and resting) are ac- 
cessed through a series of menus reached 
by means of the joystick button. In Ali 
Baba, another option menu controls vari- 
ous program attributes — sound on or off, 
difficulty and save game. In Heracles, 
these options are accessed from a menu 
tied to the OPTION key. For such bargain 
games, the number of options available is 
quite unexpected. Finally, although only 
one person can play, two players could 
agree to each control a given character, 
then take turns with the stick. 

The graphics in each game are accept- 
able, although not breathtaking; they're 
merely competent images which ade- 
quately represent the games' content. In 
contrast, the documentation is extensive, 
even for programs at more than twice the 
cost. A 24-page manual fully describes 
game content and program control. It's 
broken into two sections, each dealing 
with one of the games. An additional 
reference card gives machine-specific in- 
formation. It's all in the familiar Electron- 
ic Arts record-album-like cover 

So, while Age of Adventure is not the 
greatest game I've ever seen, not the most 
detailed game I've ever played, and hasn't 
got the best graphics ever to burn my re- 
tinas, it is an exceptional value. Its two 
complete games are engaging, and its 
price is certainly right. Age of Adventure 
is an adventure bargain. 

Hollywood Hijinx 

by "Hollywood" Dave Anderson 

INFOCOM 

125 CambridgePark Drive 

Cambridge, lUIA 02140 

48K Disl( $34.95 

It was only a matter of time until the 
lunatics at Infocom went Hollywood. Ev- 
ery one of their many works of interactive 
fiction has made you the main character 
in the story, a story whose author is also 
you, the player It seems natural that they 
now place you in a movie. 

Hollywood Hijinx is the latest release 



from Infocom. It is also the first work 
from author Dave Anderson, and its glit- 
zy and subtle sense of humor makes me 
hope it won't be his last. The premise of 
this game is as hokey as the plots of the 
movies it parodies. Your rich uncle Bud- 
dy, a Holl5rwood mogul, has been dead for 
years now. But his wife, Aunt Hildegarde, 
just died — and guess what? That's right, 
you've been named in the will as the sole 
beneficiai-y of their massive estate. But, 
like all respectable Hollywood contracts, 
there's a catch. 

This catch forms the basis of the game 
— a scavenger hunt. To claim the estate, 
you must find ten treasures from some of 
Uncle Buddy's greatest movies. These 
memorabilia have been cached through- 
out the mansion and its spacious grounds. 
To make matters worse, you have but one 
night to locate it all. As the story begins, 
you're dumped outside the sprawling es- 
tate, aptly named Hildebud. After walk- 
ing past the weapon-laden statue of Buck 
Palace, fighting maihnan (one of the many 
corny characters you'll encounter from 
your uncle's chain of B movies), you must 
try to get into the house. This is the first 
in a chain of riddles and puzzles which 
will keep you entertained for weeks. 

Assuming you get into the house (a 
tenuous assumption, at best), you'll have 
a great time exploring the enormous and 
mysterious mansion. Memorabilia from 
many of your uncle's worst movies clut- 
ter the many rooms, and your task is to 
determine which ten pieces of junk will 
win you the estate. Unfortunately, the 
footsteps you hear indicate that you may 
not be the only one interested in the 
booty. 

So you'll hurry to explore the house's 
various nooks and crannies. You'll move 
from the private theater where Uncle Bud- 
dy screened his latest films to the study 
in which he softened up potential inves- 
tors with a little liquid confidence, to the 
guest room with the brass handles on the 
floor — so those same investors would 
have something to hold onto when the 
room began to spin. And I won't even 
mention the massive hedge maze you'll 
have to chart out. 

While this is a standard-level game, I 
found the puzzles in it difficult. This is 
due to the way the thing lulled me into 
false assumptions and fed me red her- 
rings. Clues abound, but the puzzles are 
a step above the norm: most challenging, 
requiring careful attention to the prose, 
the settings and the documentation. Also, 
due to the content of some clues, I found 



the printer more of an asset than in any 
other Infocom game I've played. 

Speaking of documentation, I've come 
to expect the best in packaging and docu- 
mentation from Infocom, and I wasn't dis- 
appointed. Inside the booklike box is a 
copy of the gossip rag "Tinsel world," fol- 
lowed by a clear, well written manual. It 
would be hard not to learn to play this 
game after simply scanning its illustrative 
instructions. "Tinselworld" was very en- 
tertaining to read, a humorous parody of 
grocery-store tabloids, featuring articles 
that fill you in on your relatives' rather 
rousing past. Also included is a copy of 
Aunt Hildegarde's will, an autographed 
publicity photo of Uncle Buddy and a 
lucky palm tree swizzle stick. 

As far as program performance and de- 
sign go, Hijinx has utilized the basic In- 
focom program — which means flawless 
execution and a vast vocabulary. I was dis- 
appointed that I couldn't use X as an ab- 
breviation for "Examine," as I could in 
Moonmist. I hope that shortcut will be- 
come a standard Infocom ingredient. 

Despite this slight flaw, Hollywood 
Hijinx is a fine addition to the growing 
list of Infocom products. Like the city 
and movies it parodies, beneath its thin 
veneer lies a complete absence of rational 
thought — a space filled with only mind- 
less entertainment. And you can't help but 
be entertained. H 

The author wishes to thank the Magic 
One Computer Shop of Barherton, Ohio 
for their valuable assistance in the crea- 
tion of this chronicle. 
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News and updates from 
the ANALOG Computing 
Atari Users' Group on Delphi 



by Matthew J.W. RatclifF 

From; CANTTHINK (Jim Ellwanger) 
To: MATRAT {Matthew J.W. Ratcliff) 

I downloaded your program Tablet Typ- 
ist from the Atari SIG, and followed the 
directions in ANALOG Computing 51. I 
ran Listing 2, and it worked okay. How- 
ever, when I ran Listing 1, it told me: NO 
TYPE.SYS FILE. Do you have a correction 
for this? I am using SpartaDOS 3. 2d. Is 
the program only for DOS 2? 

From: MATRAT 
To: CANTTHINK 

Unfortunately, the program was written 
long before I was using the new Sparta- 
DOS. 

If programs are written carefully, they 
can be compatible with DOS 2.0s and 
SpartaDOS at the same time. The real 
glitch that caught me was the status you 
receive after reading a disk file. Atari and 
OSS DOS XL both report a status of 1 af- 
ter a successful disk read, and a value of 
3 if the completed disk read was also the 
last byte in the file you're reading. I used 
this often to make sure that some files are 
exactly the size expected by the program. 
It's an extra level of error checking. 

However, SpartaDOS returns a value of 
1 in either case. To make Tablet Typist 
Sparta compatible, you need only change 
several error-trapping lines in Listing 1: 

946 G05UB 130:IF ERR<=C3 T 

HEN 960 

134Q G05UB 130:IF ERR>C3 T 

HEN C5T$="":? "* Bad Font 

File »":GOTO 1300 



1748 I0=C2:ftD=C256»CSN:MM= 
1024:CMND=CGET:G0SUB 130:1 
F ERR>C3 THEN 1760 
1830 I0=C2:AD=ai>RCM0V;$} :NM 
=76:CMND=CGET:G0SUB 130 : IF 
ERR>C3 THEN 1808 

CANTTHINK's TYPE.SYS file was in- 
deed on the disk, but, because SpartaDOS 
didn't return the completion status of 3 ex- 
pected. Tablet Typist assumed an error 
condition. The above modifications will 
make the Tablet Typist SpartaDOS com- 
patible, and still provide sufficient error 
trapping in the program. 

New in the databases. 

In the Sound and Graphics database, 
you'll find a digitized graphics and sound 
demo called PEEWEE DEMO. The 32K 
file was sent up by ATARICOP (John 
Mackintosh). When you get bored with 
PeeWee's multiple digitized faces (a good 
ComputerEyes picture), you can press 
START to hear him sing "connect the 
dots," digitally. This is a brief, but great, 
sound and graphics demo (especially if 
you love PeeWee Herman as I do). 

ATARICOP has also sent up a graphics 
demo which uses multiple DLIs. He pro- 
mises you won't be sorry for dovmload- 
ing OPART. BAS. 

User 25BNH (Brian Hershey) has sent 
up the TURBO FRACTAL GENERATOR. 
It's a full-featured fractal program in com- 
piled Turbo BASIC. It's touted as being 
fifteen times faster than Atari BASIC, and 
can perform 62-sector screen dumps to 
disk or to Epson/Gemini printers, plus it 
has magnification and color cycling. 



In the Utilities database, you'll find 
ARC — 8-bit. This package lets you com- 
press and decompress files in the popu- 
lar ARC format. We're now using it for ST 
and 8-bit programs, to save time down- 
loading. These files, sent up by AJQ (Aa- 
ron Quantz), include ARC.COM (a 
machine language COMPRESSOR utili- 
ty), ARCX.COM (extractor, decompressor) 
and ARC. DOC (documentation). 

You will definitely need to download 
these files, and learn how to use them, as 
more and more of our files are compres- 
sed on the system. With ARC, not only is 
a file squeezed down to a smaller size, but 
multiple files can be libraried together in 
a single file. This minimizes the number 
of XM commands (and related time to set 
up for it) you must issue when acquiring 
a package of related files. 

Delphi tips. 

I've been asked about the REQUEST 
feature on Delphi for free upload time. 
When you enter the REQUEST command 
at the ANALOG > prompt, you're given 
a REQUEST > Which Area? You would 
think that you should enter a database 
topic name here. You don't. If you enter 
anything but the word REQUEST again, 
you won't get far. After the second RE- 
QUEST prompt comes up, you can READ 
information to prompt you through your 
free-time query. 

In the March [issue 52) Database Del- 
phi, I presented a brief program listing to 
print ASCII documentation files for you. 
Well, brief as it was, it had a minor glitch. 
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Most of you probably caught it. Simply 
add this line: 65 GOTO 30. 

In that same issue, I also made a typo- 
graphical error with the SEND command. 
The SEND should not be preceded with 
a slash (/) at the FORUM or ANALOG 
prompts. It is only needed while in the 
conference mode. 

New faces and conferences. 

I mentioned previously that ICDINC is 
now on Delphi. Generally, Tom Marker, 
President of ICD, uses the account. Keith 
Ledbetter, author of the phenomenal 8-bit 
Express! programs, now works for ICD. 
He will be on-line occasionally. 

By the time you read this, we will have 
had a conference with Infocom's Brian 
Moriarity, author of Wishbringer and 
Trinity. There will be a transcript in Re- 
views and News. H 



SUPER 
DATA BASE 1-2 -3 

(mora than a data base) 
Only 

$39.95* 

Will generate all the custom software 
you will ever need. 



1. Create Professional Data Screens. 

2. Run Custom Reports. 

3. Lini< Everything Togettter With 
Custom One Key fvlenus. 

• Easy iLlanual and Tutorials ■ 



Adventure Games 

We have them • All levels 

Some disks contain 3 games 

• High Quality ■ 

All games only 

$9.95ea. ■ 



I. M. P. SOFTWARE 

Rt. 1 Box 362 
Ozark, Uo. B5721 

Call your local dealer or us at 

(417) 485-6398 

' Add S2.00 shipping and tiandling 

fulisEouri residents add 5.25% sales lax 
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Professional Solutions: 




S MT C-SHELL The Only Unix-Like Miilti- 


■ 


}^g 


M tasking. Multiuser TOS Compatible Oper- 






^ aUng System. Has Electronic Mail. Print 




^^ 


^ Spooling, supports Networking! Too 




i^^" 


^ much to mention here Runs TOS pro- 




§ 




grams. Two User System Only $129,951 
Additional Unix-style toolsl24.^50n-line 
manual system t]9.9b Make utility i3i.95 




— — 




MICRO C-SHELL the full featured shell that 




^^ 




started it all. New improved version Now 


■ 


^H 




works with MWC Still Only J49.95 




•^^ 




HARD niSK ACCELERATOR make voui STs 




)mm * disk up to three times taster 139.95 


■ 


W^m- 


VSH «inager a GEM mterlace to be used 




^^ 




with MT C-Shell Run a visual C-Shell in 


■ 


^=1 




one window and a GEM application in 




JHB 




another simultaneously $34.95 




n 




Anil Tarm professional terminal emulator 




11 




lor the ST Using ANSI X3 64 protocol 


■ 




with automatic file transfer and printing. 




^ ~ 




XMODEM. ASCII text. Hermit. andCompu- 




-MM 




serve 'fi protocols available $24.95 




9 




Hird Dlik ToolKII a stand-alone hard disk 






utihty package. Includes a fast, reliable 


■ 


"— 




back-up program and other useful tunc- 




"^m 




fions. $29.95 




^i; 


-^_ BickBiniyir Oivalopmsnl Tooli 
9W 47S8intiCliriAvflmiB Oihtmi). CA.Q4tl)0 




""^ 


TW 


^ 


B.B.S. 415.-152.4792 415.452.1129 
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SUPER 3D PLOTTER II 

By: R. Constan C1985 



• • BEYOND BELIEF! -k -k 

I! you have any interest in 3D computer animation and image design, get ready to watch your 
so-called "game machine" out-perform every 8-bit machine on the market today! SUPER 3D PLOT- 
TER II is a complete 3D image design, display, and animation package for your Atari computer. 
Thanks to some new and very powerful "natural" algorithms developed by Elfin Magic, detailed 
hi-res images can be rotated and maneuvered at an amazing projection rate of 3 to 6 screens per 
second! This is the kind of animation that was considered impossible for an Atari. Believe it!! THIS 
PROGRAM ALLOWS MORE REAL TIME CONTROL THAN ANY CURRENTLY AVAILABLE 3D SYS- 
TEM FOR ANY-8 BIT MACHINE. SUPER 3D PLOTTER II also contains two full-fealured, memory- 
resident editors: Enter your images via numeric data, or right on the screen with a joystick! Here 
are just some of the truly amazing features of this package. 

• UNSURPASSED 30 PROJECTION SPEED 



• 2 EXTENSIVE EDITORS, PACKED WITH 
UTILITIES, FOR ULTIMATE DESIGN FLEXIBILITY 

t EASY DISK FILE SAVING. LOADING AND 
MERGING OF IMAGES 

• SCREEN ■■OVERLAY'' AND "SAVE" FEATURES 
FOR INFINITE IMAGE EXTENSION, AND TOTAL 

NY RESIDENTS ADD SALES TAX CO'-r^ATIBILITY WITH MOST DRAWING PROGRAMS 

Don't be fooled by the low price! This package is usable in professional 3D C.A.D. applications, 
and this ad does not permit space (or a fair description! Send S.A.S.E. lor more info, or send check 
or money order to: 



• TRUE HIDDEN SURFACE ELIMINATION 
AND SOLID (COLOR. FILL) PROJECTION 

• SUPER HI.RES PRINTOUT TURNS YOUR 
DOT-MATRIX PRINTER INTO A PEN PLOHER! 

• PRICE ONLY < 



$29.95 



iEIfin Magtr 

23 Brook Place, E. Islip, NY 11730 



FOR ALL B-BIT ATARI COMPUTERS 
WITH 4eK AND DISK DRIVE 
PRINTER OPTIONAL 




-SOFTWARE WITH IMAGINATION- 



CIRCUIT DATABASE II 



This is an enhanced version ot the electronic circuit {SCHEMATIC) drawing program I present- 
ed in the Nov 1984 issue of ANALOG Computing. This program allows easy design and editing 
of electronic circuits, and storage of up to 60 complete, labeled diagrams on a single side of a 
disk' This new version Includes several added circuit symbols, plus a special "'TEXT TO HI-RES" 
converter, which produces neat, vertical printouts on any dot-matrix graphics printer having a ver- 
lical printhead. The editor is so friendly, you can almost draw your circuits on screen faster than 
you could scribble them out with pencil and paper. And, it's written in plain, listable Atari BASIC, 
with full documentation on all machine language routines (USR calls), so you can use them in 
your own programs. CIRCUIT DATABASE II is a must for anyone concerned with the electronics 
field, from weekend hobbyist to professional- In fact, in today's world ol last-moving technology, 
it is almost unlhinkable that you (or your children) will never be exposed to electronic circuits in 
some form. Now, you can be ready— and at a price you can't resist. 

$1 iC ."5 ! OR SEND S.A.S.E. FOR MORE INFO AND SAMPLE PRINTOUTS! 
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SCHEDULED 
ATARI FAIRS 

JUNE 19 & 20, 1987 
SAN JOSE, CALIFORNIA 

Santa Clara Convention Center 

Great America Parkway 

For info, call Atari at (408) 745-2000 

JULY 25 & 26, 1987 

CHICAGO, ILLINOIS 

Ramada Inn Hotel, O'Hare 

At Manheim and Higgins Roads 

UPCOMING SHOWS 

Additional information will be 
publishied in later issues. 

AUGUST 1987 
DETROIT. MICHIGAN 

SEPTEMBER 1987 
GLENDALE, CALIFORNIA 

OCTOBER 1987 
WORCESTER, MA 

NOVEMBER 1987 
PALM BEACH, FLORIDA 

NOT YET SCHEDULED: 

HONOLULU, HAWAII 

NEW YORK CITY, NEW YORK 

ST LOUIS, MISSOURI 
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ANALOG Computing 
on Delphi 
puts you on-line 
with the world. 




Delphi, an on-line, full-service 

information network, offers news and 

sports from the Associated Press, 

weather reports, movie reviews, 

shopping services, travel 

information, and more. 



ANALOG Computing, 

the #1 magazine for Atari 

owners, brings you the Atari 

Users' Group on Delphi, We offer 

a message forum and an extensive 

database for up- or downloading— all from 

as little as 10 cents per minute from most U.S. 

cities, with no additional telephone charges and no 

extra charge for 1200 or 2400 bps. We'll use the group's 

conference feature for electronic meetings with well known 

Atarians and, of course, ANALX)G staff. Bring on your toughest 

questions! 



Special rates 

Subscribers to ANALOG Computing or ST-Log may join without charge, ana will receivi 
a free lifetime Delphi membership, a Delphi Command Card and S5.00 of line-time credit 
applicable to their account. If you purchase the Delphi Handbook— the highly detailed 
manual on using the whole Delphi system— for S29.95, you will get an additional S20.00 o' 
line-time credit. And you can subscribe to either ANALOG Computing or ST-Log directly, 
while on-line, to be eligible for these bonuses. 

How to connect 

First, select a data communications network: Telenet or Tymnet (in the U,S.), or 
DataPac (in Canada). In the Boston area, dial Delphi direct (617-576-0862). To 
determine your local Telenet number, dial 800-TELENET or 703-689-5700 (in 
Alaska, 907-264-7391), To obtain a Tymnet number, call 800-336-0149, If you have 
difficulty, call Delphi at 800-544-4005 (in Massachusetts, 617-491-3393), Current 
subscribers to ANALOG Computing or ST-Log should type JOINATARI when 
asked for user name. When asked for a password, type ANALOG. Those who 
Vi^ish to subscribe to either magazine on-line should, instead, type SUBSCRIBE at 
the password prompt. Once on Delphi, you'll firid our group on the "Groups & 
"' " ~ fia>4JaW;frQri;ift!».fnairhroen^^^ 
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RO, BOX 23, WORCESTER, MA 01603 



Dragonlord Dungeon 



And sundry enhancements. 



by Clayton Walnum 



Over the years, I've v^fritten many games for Atari com- 
puters, but, if someone were to break into my house late 
one night, hold a gun to my head and tell me they were 
going to destroy all the programs I had written save one 
(my choice) , I would beg for the salvation of Dragonlord 
(issue 29). I can't tell you why. All I can say is that, even 
though I spent weeks writing it and many more weeks test- 
ing it, I never became jaded with it. It always managed — 
for me, anyway — to retain its fun. 

Just the other day, I got a letter from a couple of faithful 
ANALOG Computing readers, Fern and Michael Fimk, and 
they seemed to agree with what I thought was an extreme- 
ly prejudiced viewpoint. The letter read: 

Ever since my wife and I got our Atari 800XL, 
we've typed in over 300 games, programs and utili- 
ties, primarily from ANALOG Computing. Most 
games lose their enjoyability after a few months, but 
we feel Dragonlord is the exception. We find it in- 
triguing and exciting each time we play. 

Now let me tell you a little secret. Move in a little closer 
'cause I've got to whisper. The Dragonlord in issue 29 is 
very different from the Dragonlord I now play. 

Why? Well, it's like this. Some of us just don't know when 
to quit. Unless we have someone who's standing over us 
screaming, "AH right, already! That's enough! Wrap this 
durned project up!" we just keep on going and going 
and . . . 

One would think that the day I received the contract for 
Dragonlord, I would have considered the job complete. 
Nope. You could at least expect that, when ANALOG 29 
hit the stands, I would have finally filed away my work disk. 
Nope. How about two years after its publication? 

Nope. 



The fact is: I kept getting more ideas. And, because I liked 
the game so much, I just had to make it better. Why waste 
a good idea? 

When I received the Funks' letter and gave the matter a 
little thought, I suddenly realized that Dragonlord had 
changed a lot, and I just as suddenly had an irresistible urge 
to share those changes. Of course, I had to be prodded, had 
to believe that people would be interested. 

The second paragraph of the letter not only got this arti- 
cle started, but added a new idea to the game, an idea I'm 
surprised didn't occur to me in the first place: 

After two years of enjoyment from Dragonlord, we 
have only one request. After fighting ores, winning 
gold, shopping at the store and almost clearing the 
entire board — in the instances when we're not able 
to capture the dragon and the game ends — it would 
be great if a routine could be added to show where 
the dragon was hiding. It would cap off the perfect 
ending to a perfect game. 
To Fern and Michael: yoiu' wish is my command. And, 
while I'm showing you where that dragon was holed up, 
I might as well pass along all the other changes, as well. 
Wow! What a bargain. 

The enhancements. 

The enhancements to Dragonlord can be found in List- 
ing 1. Type this listing using the BASIC Editor II (issue 47) 
to check your work, then save the code to disk with the com- 
mand LIST "D;NEWDRAGN.LST". Load the original ver- 
sion of Dragonlord and merge the new lines with the 
command ENTER "D:NEWDIMGN.LST". Save the new ver- 
sion of Dragonlord, making sure you retain a copy of the 
original — just in case something went wrong. 

Just what are these enhancements? 

The first on the list is the Fi.mks' suggestion. Now, when- 
ever you "die" before finding the dragon, the map screen 
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will appear, and a square containing a blinking ball will 
mark the room that contained the dragon. When you're 
through, pressing the joystick button will exit this screen. 
The game will then ask if you'd like to play again, just like 
the original version. 

The next enhancement is the ability to save the ten high- 
est scores to disk. From now on, each time you play Dragon- 
lord, a high-score file (DRAGONLO.DAT] will be loaded 
from disk, with the scores sorted from highest to lowest, 
and including the name of the player who attained the score. 
The first time you play the new version, this file won't ex- 
ist, but will be created automatically by the program. Each 
time a player gets on the high-score board, a cursor will 
appear next to his name and new score, helping to identify 
the addition. 

Playing for a high score gives Dragonlord a new dimen- 
sion: instead of capturing the dragon as fast as possible, 
you're going to want to avoid him like a wino avoids milk. 
The longer you last, the higher your score. 

Which brings us to the third new addition. You're going 
to want to do your best to visit each and every room in the 
maze, because if you complete your exploration, you get 
a 150-point bonus. That's nice stuff when you're going for 
the top of that high-score board. 

The final enhancement — and the most significant — is the 
ability to load different dungeons into the game. You'll now 
be asked, at the begirming of each game, which dungeon 
you'd like to play. The program is set up to handle up to 
ten dimgeons, numbered through 9. I've supplied five dun- 
geons in the form of Listings 2 through 6, and you can cre- 
ate your own with the Dragonlord Dungeon Editor, also 
included here. 

To use the dimgeons shown in Listings 2 through 6, type 
each one in separately, using the BASIC Editor II to check 
your work, then LIST them to your Dragonlord game disk 
disk, mider the names DUNGEONl.DAT, DUNGEON2.DAT, 
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DLJNGEON3.DAT, DUNGEON4.DAT and DUNGEON5.DAT, 
respectively. DUNGEONl.DAT is the dungeon that was in- 
cluded in the original game. The others present complete- 
ly new mazes. 

When playing the game, if you try to load a dungeon that's 
not available on the disk, you'll be prompted for another 
dungeon number. Any dungeon you want to load must be 
on the same disk as the game program. 
The Dungeon Editor. 

In order to help you create your ovm dungeons, I spent 
months (okay, okay: four hours) laboring over the program 
shovwi in Listing 7. Type the listing, checking your work 
with BASIC Editor II, then save it to disk. 

When you run the program, a familiar dungeon map will 
be drawn on the screen. You'll notice, though, that the 
rooms comprising this dungeon have no exits. I'll give you 
a guess as to who's going to add those exits. Go ahead, take 
a shot. (Hint: look in a mirror.) 

Each of the seventy-seven rooms in the dungeon must 
have at least one exit. The round cursor shows which room 
you're currently working on. To add an exit to a room, press 
the N, S, E or W keys (a shiny, new nickel to the first per- 
son w^ho can tell me what those letters stand for) . If you 
make a mistake, a quick tap on the C key will clear the ex- 
its from the room, giving you a second chance. 

To move between the rooms, use the arrow keys (with- 
out pressing CONTROL). If you should try to move the cur- 
sor beyond the boundaries of the dungeon, it'll wrap around 
in a logical manner, determined by the direction of your 
movement. For instance, trying to move the cursor up from 
the top row will place you on the same column, but in the 
bottom row. Moving right from the last room [77], will put 
you in the first room. 

When you've finished your dungeon, press Q (another 
of those tough-to-figure-out initials, eh?), and you'll be asked 
what number you'd like the dungeon saved under. Enter a 
number from to 9, and press RETURN. If a dungeon of 
that number already exists on the disk, you'll be asked if 
you want to overwrite it. Remember, you can have only ten 
dungeons per game disk. Once you get a filename entered, 
the dungeon will be saved to disk in the proper format for 
the new version of Dragonlord. 

The editor is a stripped-down model and doesn't include 
such options as saving (except for use with the game) or 
loading dungeons. So before you press Q, make sure your 
dungeon is just the way you want it. Otherwise, you'll have 
to start over. 

In the course of creating new dungeons, I stumbled upon 
a truly sadistic design idea: it's possible to have rooms with 
one-way doors. For example, you can make things so that 
going north into a room doesn't necessarily mean you can 
go south to get out. Using this technique, you can design 
dungeons with areas that, once stumbled upon, cannot be 
exited without finding a teleport room or using a spell 
(chuckle, chuckle). 

Back issues for sale. 

Those of you who are new to ANALOG Computing may 
have missed the original version of Dragonlord. If all this 
talk of dimgeons and dragons makes you want to know what 



the fuss is about, I urge to to order a copy of issue 29. Once 
you've typed Dragonlord (or downloaded a copy from the 
ANALOG Computing Atari Users' Group on Delphi), you 
can add the enhancements presented here and start your 
career as dragon hunter extraordinaire. 

All you experienced Dragonlords out there will find that 
the enhancements lend the game a new feel — and maybe 
even a complete, 180-degree turn in strategy. When you're 
trying for the high score and approaching the end of the 
game, each turn will be "living on the edge." A single gold 
piece can make the difference between an entry on the high- 
score board and an anonymous death somewhere within 
the dragon's labyrinth. 

Is that a challenge? You bet. H 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor 11, 
in issue 47. 
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TV 8 REM 

m 1 REM 

m 3 REM NEH VERSION 5/87 

UC 4 REM 

TH 80 FOR X=N1 TO N77 : I tXJ =N0 : ER CK3 =N0 : NE 

XT X:IC39)=N7;ERt39J=l:RE5T0RE 3610 
NO 955 IF NOT ERCROOM) THEN ERtR00M)=l:R 

C— RC+1 
HP 2162 IF ROOM=DR THEN 2175 
GF 2163 GRAPHICS N0:POKE 756, CHSET ! POKE 7 

52,Nl:P0KE 71O,N0:POKE 711,54:P0KE 712 

,112 
FO 2164 |>L=PEEKC560J+256«PEEKt561J+N4:POK 

E DL+22,N6:P0KE DL+23, N5 : POKE DL+24,N6 

:POKE DL,N0:POKE DL+N1,M(SP 
QG 2155 POKE 88,N0:POKE 89,MAPjP0KE 559,3 

4:P0SITI0N ?3.N21: ? " ■JMiM-lJ "IP 

05ITI0N N4,22:? " HW:^!!^! :!'!!! " 
KT 2166 R=DR:G0SUB ROOMPOS: POSITION COL,R 

OW:? "i— i+**t| litttl— J" 
KP 2167 POSITION COL + Nl, ROW+Nl : ? '■•■': FOR 

X=N1 TO NiOlNEXT X 
ZH 2168 POSITION COL+Nl, ROW+Nl : ? " ":FOR 

y— Ul TQ NlOlNEXT X 
AU 2169 IF STRIGCNOJ^NO THEN GOSUB SND1:G 

OTO 2175 
Vf> 2170 GOTO 2167 
RM 2175 GRAPHICS NlS iPQKE 756, CHS ET ! POSIT 

ION N2,Nl:? nMfi;"k7ilW:l;»^>]^;1>U" 
DK 2195 IF RC = 77 THEN SC=:SC+150 
QC 2210 OPEN «N1,N4,N0,"K:":GET «N1,A:CL0 

SE ttNlIIF A<>ASCt"N"J AND AOASCfVJ 

THEN 2216 
QU 2211 CN=N0:FOR X=N1 TO NIO : PR tXJ =N0 : NE 

XT X 
VJ 2212 IF SC<=RStN10J THEN 2220 
DX 2213 CN=CM + Nl:IF SORStCNJ THEN 2215 
OY 2214 GOTO 2213 
UX 2215 FOR X=N9 TO CN STEP -Nl : RS fX+Nl) = 

RStXJ :PR(X+N1)=PRCX) :R5SCfX+NlJ*N9-N8, 

CX+Nl)»N9)=RS$tX»N9-N8,X*N9J : NEXT X 
WP 2216 B=NO:FOR X=N1 TO N9:IF N$CX,XJ<>" 

■■ THEN NEXT X:GOTO 2219 
LM 2217 B=B+Nl:IF B=N2 THEN FOR y=X-Nl TO 

h9!NScy,yj="H"!NEXT y:goto 2219 

MM 2218 NEXT X 

LV 2219 RSCCN)=SC:PRtCNJ=Nl:RSSCCNKN9-N8, 
CN»N9)=NS:F=N1 
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It, 2220 CN=N0!IF HOT F THEM 2223 
MM 2221 CLOSE ttNl:OPEN ttHl, N8, NO, "D ! DRftGO 
NLO.DftT":FOR X=N1 TO NIO:? ttNl;R5tXJ:? 
«Nl;R5StX*N9-H8,K«M9J :HEHT X 
ZM 2222 CLOSE «N1:F=M0 

5H 2223 GRAPHICS N17:P0KE 756, CH5ET : POSIT 
lOM H3,NB:? »N6; "record score s";POSITl 
ON N3,Ni:? ttN6;"BIBSIB^BBS" 

DK 2224 FOR X=N1 TO MiO:POSITION N3,X+N4! 

? ttM6;RSStX»N9-M8,X*N9);"H";RStX> : NEXT 
X 
OJ 2225 FOR Z=H1 TO M18:IF PRCZJ=H8 THEN 

NEXT Z:GOTO 2229 
OB 2226 FOR X=H1 TO N2e:NEXT X: POSITION N 

2,Z+M4:? »N6;"fl":F0R X=N8 TO NO STEP - 

0.4:SOUND N8,N10,N10,X 
ZR 2227 SOUND Nl, Ni5, N10, X : FOR Y=N1 TO H4 

:NEXT Y:SOUND NO, HO, NO, NO : SOUND Ni,N0, 

N0,N8:FOR Y=M1 TO N3 : NEXT Y:NEXT X 
ML 2228 NEXT Z 
HH 2229 POKE 711, 54 ! POSITION N2,22:? ttN6; 



lUSh fire button 



HK 2230 FOR X=N1 TO 38: NEXT X:POKE 711, NO 

:IF STRIGtN0J=N8 THEN 2232 
IJ 2231 FOR X=N1 TO N10 : NEXT X : POKE 711,5 

4:G0T0 2230 
NT 2232 IF fl=ASC("N"J THEN POKE 82,N2:END 
WO 2233 POSITION N2,22:? ttH6j" ONE HOME 

NT " 
PG 2240 RESTORE 2948 : HP=58 : STR=100 : SPLrNO 

! PIE=N1 ; CHT=HO : B=N0 : WN=N1 : G=60 ! R00M=39 

:SC=N0:SM=N0:TURH=N0:RC=l:GOTO 88 
AU 2300 DIM ERt77),RM(N77),ItN77J,RM$t255 

} , MU$ CN20} , N$ CN9) , N$ (28) , DIR$ (N28} , S5 C 

120),B5C4O),CL$f46) 
IK 2310 DIM R$CN1),RCN5),C$CN1) ,E$CN4),D$ 

C81),F$(N14),RS(N10},RS$(9O) ,PR(N10) 
ZU 2340 MN=Nl:PIE=Nl:CNT=N0;G=6e:SPL=N0:H 

P=50 : STR=100 : B=NO : R00M=39 : SM=N0 : SC = NO ! 

TURN~N0 ■ RC— 1 
ax 2358 Ro6mPOS=188:CHOOSE=29O:DIR=370:CL 

UE=2ie : DEAD=2162 : DELAY2=360 : SND1=160 : S 

ND2=178:TEL=130 
EU 3030 POKE 559,0:POKE 87,N0:POKE 88, NO: 

POKE 89,MfiP:A=:USR(ADRCCL$},N15} 
VR 3040 POSITION N18,N9:? RM$ CRMCR00M}«N1 

7-N16,RMCR00M)»N17J 
SB 3301 TRAP 3351:0PEN ttNl, N4, NO, "D : DRAGO 

NLO.DAT" 
TC 3302 FOR X=N1 TO N10:INPUT ttNl;A:RS(X} 

=fl : INPUT «N1 ; HS : R5$ CX»N9-N8, X»N9J =N$ ; N 

EXT X:TRAP 400O0:CLOSE «N1 
lY 3340 FOR X=N1 TO M9;IF N$CX,XJ <>"-■• TH 

EN NEXT X 
KE 3342 F$="D:DUNGEDN .DAT" 
KG 3343 POSITION N2,N15:? "NHAT DUNGEON < 

0-9> +**■'■; :TRAP 3343:INPUT D:CLOSE tt 

1 : F$ CH10 , HIO) =STRS CDJ 
LG 3344 OPEN »1, 4, 0, F$ : CLOSE ttl 
CA 3345 GRAPHICS NO:POKE 559, NO;? :? :? " 

ENTER";CHRS(34);F$:? :? :? "COHT" 
CQ 3346 POSITION NO,N0:POKE 842,N13:ST0P 
Ski 3347 POKE 842, N12 : RESTORE 2940:F0R Y=N 

1 TO 77:READ A : RMtYJ =A ; NEXT Y 
IR 3350 TRAP 3838 : N$ CXJ =■■ ■■ ; POP : 

TRAP 40000: POKE 559. 34: GOTO 550. 
CF 3351 R5$CN1)=" " : RSS C90) =" " : RSS CN2J =R 

5$:CL0SE ttNl:OPEN ttNl, N8, NO, "D : DRAGONL 

O.DAT" 
VH 3352 FOR X=N1 TO NIO : RS (X) =N0 : ? »N1;RS 

CXJ:? ttNl; RS$ CX«H9-N8, XKN9) : next X:CL0 

SE ttNl: GOTO 3310 



Listing 2. 
BASIC listing. 

YC 2940 DATA 4,6,6,9,6,9,6,9,6,6,5 

UM 2950 DATA 1,9,9,8,5,2,4,8,9,9,3 

BU 2968 DATA 12,11,2,4,3,2,1,5,2,11,12 

RU 2978 DATA 7,6,10,18,6,18,6,18,10,6,15 

CG 2980 DATA 11,12,2,1,5,2,4,3,2,12,11 

SM 2990 DATA 4,8,8,9,3,2,1,9,8,8,5 

— 3888 DATA 1,6,6,8,6,8,6,8,6,6,3 



Listing 3. 
BASIC listing. 

MQ 2948 DATA 4,9,9,9,9,9,9,9,9,9,5 

PF 2950 DATA 7,8,8,8,8,8,8,8,8,8,15 

ZI 2960 DATA 4,5,4,9,9,16,9,9,5,4,5 

SP 2970 DATA 2,7,15,2,7,10,15,2,7,15,2 

KE 2980 DATA 1,3,1,8,8,10,8,8,3,1,3 

NY 2990 DATA 7,9,9,9,9,9,9,9,9,9,15 

3000 DATA 1,8,8,8,8,8,8,8,8,8,3 



Listing 4. 
BASIC listing. 

UR 2948 DATA 4,6,6,6,9,6,9,6,6,6,5 

AJ 2950 DATA 1,6,5,9,10,9,10,9,4,6,3 

IF 2960 DATA 4,6,3,7,3,2,1,15,1,6,5 

XX 2970 DATA 1,6,5,7,6,10,6,15,4,6,3 

MO 2980 DATA 4,6,3,7,5,2,4,15,1,6,5 

PP 2990 DATA 7,6,5,8,18,8,10,8,4,6,15 

■M 3000 DATA 1,6,8,6,8,6,8,6,8,6,3 



Listing 5. 
BASIC listing. 

VP 2940 DATA 4,6,9,6,5,9,4,6,9,6,5 

XJ 2950 DATA 7,6,10,6,15,2,7,6,10,6,15 

GU 2960 DATA 1,6,8,6,3,2,1,6,8,6,3 

GE 2970 DATA 7,6,6,6,6,10,6,6,6,6,15 

OK 2980 DATA 4,6,9,6,5,2,4,6,9,6,5 

HT 2990 DATA 2,13,10,14,2,2,2,13,10,14,2 

KH 3000 DATA 1,6,8,6,3,8,1,6,8,6,3 



Listing 6. 
BASIC listing. 

ife 2948 DATA 4,9,9,9,9,9,9,9,9,9,5 

Da 2958 DATA 7,18,18,10,10,10,10,10,10,10 

,15 
DT 2960 DATA 7,10,10,10,10,10,10,10,10,10 

,15 
DM 2970 DATA 7,10,10,10,10,10,10,10,10,10 

,15 
DZ 2980 DATA 7,10,10,10,10,10,10,10,10,10 

,15 
EC 2990 DATA 7,10,10,10,10,10,10,10,10,10 

,15 
AP 3000 DATA 1,8,8,8,8,8,8,8,8,8,3 



Listing 7. 
BASIC listing. 

YG 10 GRAPHICS 1:PDKE 710,0:P0KE 752,1 
WF 20 POSITION 5,6:? tt6; "dragonlord" :POSI 
TIOM 3,8:? tt6;"DUNGE0N EDITOR":? " 
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its 

KM 
MP 

YD 
VG 

KQ 

HK 



HT 

YU 
BX 
ET 

BQ 
KH 
UK 

OR 

MT 

MT 
'ftZ 



,€E 

^HM 

:KX 

TZ 

ER 
l>5 

;ao 

AK 
CI 

:'5i 

FG 
RK 

DO 

MZ 

UZ 
HD 
PB 

MR 
tN 

ttv 

ZM 
OG 
OF 



Bv Clayton Malnun" 
30 ? !? " Copyright 1987 by ftNflLOG COM 
puting" 

46 H=l:E=2:S=3!W=4:REPEftT=0 
58 DIM RM$C17J,FStl5J,flSCl),LSt75),BSC 
37) 

60 DIM RMt77,4),CMPCi5,4) 
78 FOR X=l TO 77:F0R Y=l TO 4:RMtK,YJ= 
I NEKT Y ! NEXT X 

80 FOR xi:l TO 15 : FOR Y=l TO 4:READ ft:C 
MPCX,Y)=A:NEXT Y : KEXT X 

90 DATA 1,1,0,0,1,0,1,8,1,8,8,1,8,1,1, 
8,8,8,1,1,0,1,0,1,1,1,1,8,1,1,8,1,8,1, 
1,1,1,1,1,1,1,0,0,8,8,8,1,8 
100 DATA 8,1,8,8,8,8,0,1,1.0,1,1 
110 B$fl)=" ••:B$tZ7i=" '■:BSC2)=BS 
120 RM$="| — 1**^*^*1 !**•<•*' — "■ 
130 GRAPHICS 0:POKE 710,O:POKE 752,1 
140 FOR Y=0 TO 18 STEP 3:F0R X=3 TO 33 

STEP 3 
150 POSITION X,Y:? RM$ 
160 NEXT X:NEXT YiPOKE 766,1 
170 ? "f = UP + = DOWN ■» = RIGHT * 
= LEFT": POKE 766,0 
180 ? ■■H,5,E,W = EXITS C = CLEAR Q = 

QUIT" 
190 C=4:R=l:0C=C:0R=R:RM=l: POSITION C, 
R!? "•" 

200 OPEN «1,4,0,"K:":GET »1,A:CL0SE «1 
210 IF A=ASCt"Q") OR A=ASCt"q") THEN 3 
28 

220 IF tA=ASCt"N") OR A=ASC("n"JJ AND 
RM>11 THEN POSITION C,R-1:? "J-":RMCRM, 
N)=l 

230 IF CA=ASCC"S"J OR A=ASC C"S") ) AND 
RM<67 THEN POSITION C,R+1:? "T"!RMtRM, 
SJ=1 

240 IF tA=ASCt"E") OR A=ASC t"e"J ) AND 
RM/llOlNTCRM/11) THEN POSITION C + 1,R: 
? "h":RMCRM,E)=:l 

250 IF CA=A5Ct"W") OR A=flSCt"w")) AND 
tRM-l)/ll<>INT((RM-lJ/ll) THEN P05ITI0 
N C-1,R:? "H":RMCRM,W)=1 
260 IF A=ASCt"C") OR A=ASCC"C") THEN P 
RM$:FOR X=l TO 4:RMC 



THEM RM=RM+l:IF RM>7 
THEN RM=RM-l:IF RM<1 
THEN RM=RM-ll:IF RM< 



OSITION C-l,R-l:? 
RM,X)=0:NEXT X 
270 IF A=A5CC"»") 
7 THEN RM=1 
280 IF A=A5CC"+"J 

THEN RM=77 
290 IF A=A5CC"-") 
1 THEM RM=RM+77 

300 IF A=ASCC"=") THEM RM=RM+11:IF RM> 
77 THEN RM=RM-77 
310 GOSUB 520:G0T0 200 
320 GOSUB 510:IF REPEAT THEM 380 
330 F$="D: DUNGE0N0.DAT" 
340 TRAP 340 '.POSITION 2,21!? "DUNGEOM 
NUMBER"; :INPUT DN 
350 IF DN<1 OR DN>9 THEM 340 
360 TRAP 380:FSI1O,10)=STRSCDN) :CLOSE 
«l:OPEM «1,4,0,F$ 

370 POSITION 2,22:? "FILE ALREADY EXIS 
TS! OVERWRITE IT";!lNPUT AS!lF AS<>"Y" 

THEN 320 
380 CLOSE »l:OPEH «1, 8, O, FS : GOSUB 510: 
POSITION 5,21:? "WORKING..." 
390 LINE=2940 

400 FOR RC=1 TO 67 STEP 11 
410 L$=STR$CLINEJ :LSC5J=" DATA ":TRAP 
40000 

420 FOR RM=RC TO RC+10 : T=l : GOSUB 520 
430 FOR D=l TO 4 

440 IF RMCRM,DJ=CMP£T,D) THEN NEXT D;G 
OTO 470 

450 POP :T=T+l:IF T>15 THEN 506 
466 GOTO 430 

470 LS tLEN CLSJ +1J =STRS CT) ! LS CLEN CL$J +1 
J=",":NEXT RM 



Pe 480 ? l*l;LStl,LENtLS)-lJ !LINE=LIME+10! 

NEXT RC 
LD 490 GRAPHICS 0:? "ALL DONE!":END 
SO 500 POSITION 2,22:? "ROOM tt";RMj" DOES 

N'T HAVE AN EXIT!":CLOSE ttl : REPEAT=1 : G 

OTO 310 
QU 518 POSITION 2,21!? B$:POSITION 2,22:? 

B$ 
EM 520 R=INTttRM-l)/llJ»3+l:C=CRM-INTf tRM 

-l)/'llJ»ll+lJK3-2: POSITION OC,OR:? " " 

:POSITION C,R:? "•"!OC=C:OR=R: RETURN 
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WAMT TO SELL? 

We wilt pay you top $$$ for your computer equipment and accessories. Nothing 
is too new, old or obsolete. We will even buy your damaged equipment! 

WANT TO BOY? 

We have one of the world's largest inventories of used Atari and compatible 

hardware, software and accessories. We also carry new Atari products at low, 

low prices. We guarantee every product sold! 

WANT TO TRADE? 

Now you can trade-in your old equipment for new or used products. Upgrade 

your system quickly and hassle free! ^ ^ 

^^^^^^ Computer Repeats, Inc.' 
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Try our new 24 Hour BBS: (303) 939-8174 



2121 4lh Street 

Boulder. CO 80302 

(303) 939-8144 

OPEM M-F, 1-10 p.m. PT 
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Pinball 
Factory 




^CTri) $39.95 



Cornerman 




$49.95 



BBS 2.0 




$79.95 



MightyMail 




$49.95 



Over 30 quality tiUes. Send for our latest 
catalog. Dealer Inquiries welcome. 



MicliKron 

.576 S. Telegraph, Pontine, in 48053 
Orders and Jt^ormation (313) 334-5700 
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continued from page 3Q 



Once the components and connections 
are defined and associated with a partic- 
ular library, you can begin positioning the 
components. You continue by test routing, 
to minimize incompleted connections 
during autoroutes. The PC board can be 
resized, to minimize wasted board space. 
Blockades can be set aside, for drilling 
mounting holes on the final product, for 
example. You will generally complete the 
routing in the manual mode, then save 
and print your final work. 

The manual is quite well done (after a 
major revision). It begins with several 
sample designs to get you accustomed to 
the process of going from schematic to fi- 
nal print. From there, the text coaches you 
through the more advanced features of PC 
Board Designer, followed by a section on 
practical design techniques. A detailed 
explanation of all the program's menus is 
presented, once you've gotten your feet 
wet. Another chapter is dedicated to the 
component definition program, which 
can be used to create your own libraries, 
up to sixty per file. Among the appendices 



is a complete list of all the component 
definitions provided with the PC Board 
Designer package. 

There's room for a lot of improvement 
in PC Board Designer. The editor for com- 
ponent and connection lists is awkward, 
and should be a separate GEM window. 
This would allow a slightly larger PC 
board, and make the generation of a com- 
plete net list much less tedious. It would 
be nice if pins on circuits could be de- 
fined as input or output, analog or digi- 
tal. Then, during routing, the program 
could warn you if you're making an im- 
proper connection. Since the price has 
been lowered drastically and the manual 
improved significantly, I feel that PC 
Board Designer provides a good value. It 
isn't nearly as powerful as some of the de- 
sign software out for the IBM machines, 
but it is much less expensive. The pro- 
gram's biggest flaw is the size limitation 
of the PC boards. H 
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Attention Programmers! 



ANALOG Computing is interested in programs, articles, tutorials and hardware/software re- 
view submissions dealing with the whole line of Atari personal computers, including the new ST 
models. If you feel that you can write as well as you can program, then submit those articles 
and reviews that have been floating around in your head, awaiting publication. This is your op- 
portunity to share your knowledge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided in printed 
and magnetic form. Typed or printed copy of text is mandatory and should be in upper and lower 
case with double spacing. By submitting articles to ANALOG Computing, authors acknowledge 
that such materials, upon acceptance for publication, become the exclusive property of ANA- 
LOG Computing. If not accepted for publication, the articles and/or programs will remain the 
property of the author If submissions are to be returned, please supply a self-addressed, stamped 
envelope. All submissions of any kind must be accompanied by the author's full address and 
telephone number 



Send programs to: 

Editor, ANALOG Computing 

RO. Box 23, Worcester, MA 01603. 
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Camp 



Son of Macromania. 



by Karl E. Wiegers 



Let's begin today's discussion with a bit of time travel. 
Way back in issues 41 and 42 of ANALOG Computing, I 
showed you how to simulate a niunber of Atari BASIC 
graphics commands in assembly language. The culmina- 
tion of that discussion was a program that drew a yellow 
five-pointed star on a purple background in graphics 5. 
Please go dig up issue 42 if you have it; I'll wait here until 
you get back. (Don't panic if you don't have issue 42 han- 
dy — you'll live.) 

Got it? Now, please turn to page 101 of that issue. There 
you see a BASIC program that did exactly what our final 
assembly program did. I'll reproduce it here, in case your 
back issues are lost somewhere: 

10 GRAPHICS 5+15 

20 SETCOLOR 6,1,12 

30 SETCOLOR 4,6,8 

40 COLOR 1 

50 PLOT 26,15 

60 DRAHTO 68,15 

70 DRAHTO 28,35 

80 DRAMTO 46,5 

90 DRAWTO 52,35 

100 DRANTO 20,15 

110 GOTO 110 
What would you say if I told you that, after studying to- 
day's Boot Camp, you'll be able to write a program in as- 
sembly language that looks almost identical to the above 
BASIC program — and does exactly the same thing? I de- 
tect some murmurings of skepticism in the crowd. But it's 
all true, through the Miracle of Macros! 

Today, I present macros to simulate ten common BASIC 
statements: SETCOLOR, POKE, POSITION, OPEN, CLOSE, 
GRAPHICS, PRINT, COLOR, PLOT and DRAWTO. Once 
you have this set in hand, writing assembly programs to 
perform any of these functions is scarcely more difficult 
than in BASIC. We'll begin to build a macro library that 



covers most of the common BASIC commands, as well as 
some commands BASIC doesn't have but should. Future is- 
sues will add to this library from time to time. 

The (possible) bad news is that you must have a macro 
assembler to use these programs. My examples are specifi- 
cally written for MAC/65. With a little effort, you can modi- 
fy most of them to work with the Atari Macro Assembler 
(AMAC), although I'll point out some important differences 
between the assemblers. If you have a different macro as- 
sembler, try to adapt the ones I have here to yoiu- own en- 
vironment. The manual for your assembler should help with 
specific syntax questions. 

Even if you don't have a macro assembler, I think you'll 
get some useful ideas about assembly programming in the 
words that follow, so plunge onward. 

Macro refresher. 

Last month, I introduced the idea of macros and looked 
at two examples, POKE and SETCOLOR, in detail. A mac- 
ro is just a named block of assembly language statements. 
When we invoke (call, refer to, use — all are synonyms) a 
macro, the instructions in the macro are placed right into 
the somce (and hence object) code upon assembly. This is 
called "expansion" of the macro. Two very powerful fea- 
tures of macros are: the ability to pass variable parameters 
each time the macro is invoked, and the use of conditional 
(.IF, .ELSE, .ENDIF) assembly statements within the mac- 
ro. These methods let the macro generate different object 
code each time it is expanded. 

Today, we'll look at some other ways to use macros. We'll 
see macros that invoke other macros, macros that call sub- 
routines, macros that use string (as opposed to numeric) 
parameters, macros containing labels, and more. I'll also 
demonstrate a convenient way to keep track of your macro 
(and subroutine) libraries as you build them. All these 
methods will help you write assembly language programs 
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much faster and cleaner than you may be doing now. So 
let's get started! 

A macro library. 

Listing 1 contains the assembly code definitions for the 
ten macros I mentioned earlier, plus the equates needed by 
the macros. You could use these macros in a couple of ways 
as you write programs. In the simplest case, you could just 
type the code for the macros you need into each program 
you write. A less time-consuming method is to put each 
macro into a separate file and use the editor portion of your 
assembler to pull in the ones you need and piece together 
a program. But the best way is to use the .INCLUDE direc- 
tive of your assembler. 

The .INCLUDE directive has the form: .INCLUDE #D: 
MACRO. LIB. Whenever this directive is encountered dur- 
ing assembly of a program, the entire contents of the file 
named are inserted into the source code being assembled, 
at the location of the .INCLUDE. This way, you can man- 
age a large program — or programs containing common seg- 
ments of code — by linking together several smaller files. 

I'd Hke you to create a file called MACRO.LIB that con- 
tains everything in Listing 1. Now, anytime you want to use 
a macro from this library, just put the .INCLUDE #D:MAC- 
RO.LIB statement at the beginning of your program. Please 
note that, with MAC/65, .INCLUDEd files must be saved 
in the standard MAC/65 tokenized form. LISTed files can- 
not be .INCLUDEd this way. 

There is a bad side to the use of .INCLUDE files. One of 
MAC/65's strong points is that it assembles very quickly 
from the source code in RAM. If we .INCLUDE some files, 
the assembly process will slow down, as those files must 
be read from disk. This isn't such a big deal with AMAC, 
since AMAC must read source code files from disk to as- 
semble them, anyway. If you have a 130XE with a RAM- 
disk, you're in luck. I always begin my MAC/65 sessions 
by booting DOS, setting up the RAMdisk, then copying all 
my .INCLUDE files onto the RAMdisk. (If the DOS you use 
permits batch files, you can copy these files automatically 
on booting.) All my .INCLUDE statements then refer to files 
on drive D8:, and assembly is still very fast. 

Listing 2 is another file that will be .INCLUDEd in our 
programs. Please call this one SUBS. LIB. It contains a cou- 
ple of subroutines that are called by some of the macros. 
You might consider adding to this file any other subroutines 
you use often in your own programs. We have encountered 
a few in previous columns, such as timing delay routines. 
Now, let's look at a couple of sample programs and study 
the macros in more detail. 

Example 1. — Text. 

Listing 3 is a short assembly program that looks a lot like 
BASIC. It sets up a standard graphics 2 screen, changes a 
couple of color registers, and prints one line of text on the 
screen and one in the text window. Sounds simple enough. 

Note that the MACRO.LIB file is .INCLUDEd at the be- 
ginning of the source code, and the subroutines are at the 
end. Macro definitions can go just about anywhere except 
in the middle of the program. I like to group them at the 
top. Conceptually, I like the subroutines at the end of the 
program, so the assembler doesn't get confused by hitting 



source code before it gets to the program origin address in 
Line 150. 

I won't dissect the SETCOLOR and POKE macros, be- 
cause we covered them in gory detail last month. The 
GRAPHICS macro does essentially the same thing that the 
Atari BASIC GRAPHICS statement does. It opens the graph- 
ics screen device S: in a particular graphics mode, with or 
without a text window. By now, you're all old hands at open- 
ing lOCBs, but to make it even easier, I wrote an OPEN mac- 
ro. In fact, the GRAPHICS macro actually calls the OPEN 
macro. , .but we're getting ahead of ourselves. 

OPEN. 

Let's look at the OPEN macro in Lines 1290-1550 of List- 
ing 1. For each macro, I've shown a usage example and de- 
scribed the parameters it uses. Notice that no comments 
are included in the body of the macro (that is. between the 
.MACRO and .ENDM directives]. Since the whole macro 
is plugged right into the source code during the assembly 
process, you waste RAM if you have comments within the 
macro definition. 

The OPEN macro, just like the OPEN command in BA- 
SIC, requires four parameters: the lOCB number to open; 
two auxiliary values; and the name of the device to use. As 
with all these macros, the first function is to test and make 
sure the correct number of parameters is supplied (Lines 
1300-1310). If not, an error message is printed on the as- 
sembly listing. 

Incidentally, you may have seen macros similar to mine 
in other publications. There are different ways to write these 
macros, although they all do essentially the same thing if 
they're trying to simulate their BASIC counterparts. You can 
make the macros quite a bit more elaborate than I have in 
many cases, but I'll let you do some of that on your own. 

The first strange thing about the OPEN macro is that de- 
vice name jazz. Aren't those usually some kind of charac- 
ter string, hke S:, or Dl:DATA.FIL? They sure are. Fortun- 
ately, MAC/65 permits string parameters to be used in mac- 
ros, something AMAC can't do. String parameters are num- 
bered as usual, but a dollar sign ($) after the percent sign 
(%) identifies the parameter as a string: %$4, for example. 
Line 1340 reserves a block of data bytes the length of what- 
ever is in %$4 as the device name, followed by an end-of- 
line (EOL) character. We don't want to try to "execute" those 
data bytes as instructions, so Line 1330 jumps over the line 
labeled ©DEVICE. 

Since AMAC can't handle string variables, you have to 
get more inventive. You could write a version of the OPEN 
macro that uses an address for the fourth (device) parame- 
ter. This address could be a byte string set to something 
hke S: or Dl:DATA.FIL. Lines 580-630 of Listing 2 show 
some common device names you might want to use. If you 
take this approach, an AMAC OPEN macro call might look 
hke: OPEN 6,12, 2, S. 

And now a word about labels. You can use labels in mac- 
ros just like you do elsewhere in your program. However, 
it's actually possible to refer to those intra-macro labels from 
outside the macro, which can cause some strange things 
to happen. It's a good practice to use a different conven- 
tion for naming labels inside and outside macros. I use la- 
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bel names beginning with an at sign (@) within a macro. 
Fortunately, the label definitions are changed automatical- 
ly each time the macro is invoked, so ©DEVICE will have 
a unique address each time you call OPEN. You don't have 
to worry about this, since the assembler will. 

Line 1360 uses the first parameter to determine which 
lOCB we want to use. This parameter must be an actual 
lOCB number, not an address containing the desired lOCB 
number. Lines 1370-1400 set up the lOCB with the pointers 
to the device name passed in parameter %$4. 

I elected to provide the flexibility to handle the auxiliary 
values as being either actual numbers or addresses contain- 
ing the numbers to be used. Lines 1410-1460 illustrate the 
logic used for auxiliary value 1. If parameter %2 is greater 
than 255, I assiune it's referring to an address, so I snatch 
the contents of that address in Line 1420. Otherwise, I as- 
sume the actual auxiliary number has been supplied, so I 
use it directly in Line 1440. Whatever value I end up with 
is stored in ICAXl in Line 1460. The same method is used 
for the second auxiliary byte in Lines 1470-1520. Of course, 
this method will fail if you want to point to an address in 
page 0, in which case %1 will be 255 or lower (think about 
it!) You could use this same address/value approach to make 
the lOCB selection from parameter 1 more intelligent, if you 
Uke. 

At this point, all necessary registers are set to perform 
the OPEN, except the command value and the jump to CIO. 
Since these steps are the same for all OPEN operations, I 
decided to put them into a subroutine called OPEMOCB 
(Lines 390-430 in Listing 2). By doing this, we save a few 
bytes of object code each time the OPEN macro is expand- 
ed. Including a subroutine call within a macro definition 
makes your object code more efficient. In this case, we're 
only talking about a few bytes, so if you feel more comfort- 
able including the entire OPEN procedure within the mac- 
ro, go right ahead. I often prefer that sort of comprehen- 
sibility to a small efficiency improvement. 

This is all fine, but what does it have to do with the 
GRAPHICS command? Well, since the heart of the BASIC 
GRAPHICS command is opening lOCB 6 for the S: device, 
I thought we'd better cover the OPEN macro first. Now, how 
do we take the single parameter from the GRAPHICS mac- 
ro and turn it into the four parameters needed by OPEN? 

GRAPHICS. 

The GRAPHICS macro lives in Lines 1870-2070. It re- 
quires one parameter, a value (not address) that is any val- 
id BASIC graphics mode for your computer. (Remember that 
the XL/XE machines have access to some ANTIC modes 
from BASIC that the 400/800 do not.) As with BASIC, you 
can add 16 to this mode number to suppress the text win- 
dow. 

Line 1910 jumps beyond a couple of bytes reserved for 
the two auxiliary parameters needed by OPEN. The BASIC 
graphics mode number must be placed into @AUX2. Line 
1980 keeps only the 4 least significant bits of parameter 
7ol, thereby making sure that @AUX2 has a valid value 
from through 15. 

Some gyrations are required to set the right value in 
(SiAUXl to control the text window. Back in issue 41, I told 



you that @AUX1 (ICAXl in lOCB terminology) should be 
set to 28 to have a text window present, and to 12 to get 
rid of the text window. How^ever, since we told the GRAPH- 
ICS macro to get rid of the text window by adding 16 to 
the graphics number (equivalent to setting bit 5), some bit 
manipulations are needed. Lines 2000-2040 load @AUX2 
with a decimal 28 if the graphics mode is Jess than 16 (win- 
dow) and a decimal 12 if the mode is greater than 16 (no 
window). You might find it illuminating to work through 
the AND, EOR, and ORA for the two cases. 

Line 2050 finally does the dirty work. Notice that we are 
invoking the OPEN macro from within the GRAPHICS mac- 
ro. This nested macro situation is perfectly legal. (Oh right, 
when I talked about macro ecology last issue, I forgot to tell 
you where they nest!) The four parameters passed to OPEN 
are a 6 (lOCB 6 for the screen, always), the values we syn- 
thesized for @AUXl and @AUX2, and the screen device 
S:. Note the use of the literal string in parameter 4. 

This isn't so bad, is it? The nicest part is: now that you 
have these macros, you don't have to worry about such de- 
tails anymore. 

Macros calling macros. 

What do you suppose would happen if you had a macro 
that called itself? This is called "recursion." You might be 
able to get away with this, provided you have conditional 
code to permit an exit under specific circumstances. If a 
recursive macro with no way out tries to call itself indef- 
initely, your computer will explode after 5 seconds (just 
kidding). 

Getting back to Listing 3, once the GRAPHICS macro has 
been called, you can set the color registers to whatever 
values you like. Line 170 shows how to use the SETCOLOR 
macro for this, and Line 180 illustrates the use of the POKE 
macro to set a color register. Now let's print something on 
the screen. 

POSITION. 

POSITION is one of the obvious candidates for a simple 
macro. Lines 1040-1150 of Listing 1 show that POSITION 
requires two parameters, the X- and Y-coordinates where 
the cursor should go. Both parameters are assumed to be 
values, not addresses. I think you can follow the code in 
this macro without too much difficulty. The first parame- 
ter (X-coordinate) can only be greater than 255 in graphics 
mode 8, where it can range from to 319. 

PRINT. 

Here's another one where you can imagine a pretty so- 
phisticated macro to fully emulate its BASIC counterpart. 
In BASIC, a PRINT command can be followed by nothing 
(print a blank line), a literal (print what's between the 
quotes), or a variable name (print the current value of the 
variable). Also, the lOCB number to use may or may not 
be specified; the absence of an lOCB number means use 
lOCB for the screen editor, device E:. 

I haven't written a full implementation of the PRINT mac- 
ro; the MAC/65 manual contains a very detailed version you 
might try to comprehend. The one I give here doesn't han- 
dle the printing of literals, just strings at addresses. Each 
such string must terminate with an EOL character. Lines 
250-260 of Listing 3 are some text strings to print. 
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The PRINT macro is in Lines 2260-2450 of Listing 1. The 
lOCB number is optional; lOCB is assumed if you supply 
only one parameter (the string address). This macro calls 
subroutine PRINTLINE (Lines 230-310 of Listing 2], which 
issues the PUTREC command to CIO. In Listing 3, text is 
printed on both the graphics 2 screen and in the graphics 
text window. You shouldn't have much trouble adapting 
this macro to AMAC. How's about whipping up a method 
to handle string literals, thereby completing the emulation 
of the BASIC PRINT command (except for trailing commas 
and semicolons)? 

CLOSE. 

It's a good practice to close an lOCB when you're all done 
with it. Hence, the CLOSE macro (Lines 1650-1740 of List- 
ing 1). Very simply, it takes the parameter you pass as the 
lOCB number to be closed, and does the dirty deed forth- 
with. What could be simpler? 

This wraps up our discussion of macros in the first sam- 
ple program. Play with the graphics mode, colors, position 
and text strings until you're convinced this really is almost 
as easy as BASIC. The big difference becomes apparent 
when you have to go through the assembly process each 
time you make a change in Listing 3. The value of an inter- 
preted language like BASIC becomes clearer. However, 
things execute an awful lot faster in machine language, so 
you just have to grit yovu teeth through the assembly step. 

Example 2. — Graphics. 

Now turn to Listing 4. Do you notice a strong similarity 
to the short BASIC program you encountered at the begin- 
ning of this article? Essentially, we've just added some of 
the assembly directives, but the resemblance is micanny. 
This program uses just three new macros, COLOR, PLOT 
and DRAWTO. 

COLOR. 

Lines 2550-2620 of Listing 1 are devoted to the COLOR 
macro. This works exactly like the BASIC COLOR state- 
ment. However, we do need to stash the color value you pass 
imtil we need it in the PLOT and DRAWTO macros. Ad- 
dress $C8, labeled COLOR, is the temporary holding tank 
for the color value. Note that there's no conflict between 
this label and the identical macro name. 

PLOT. 

Lines 2730-2870 of Listing 1 define the PLOT macro. As 
you expect, it takes two parameters, X- and Y-coordinates, 
to plot a point. It simply passes these along to the POSI- 
TION macro in Line 2770, which actually positions the cur- 
sor in the right place. Again, we have a case of a macro 
calUng a macro. We've now seen examples in which a macro 
passes parameters to a second macro in the form of numeric 
values, labels and string values (all from GRAPHICS to 
OPEN), and as raw parameters (%1 and %2 from PLOT to 
POSITION). 

PLOT assumes you are using lOCB 6 (Line 2780). It uses 
an unusual form of the CIO PUTREC operation. Normally, 
PUTREC requires that you point to a buffer address and 
set a buffer length for the record to be output. An excep- 
tion to this allows you to output a 1-byte "record." First, 
set the buffer length to (Lines 2810-2830). Then load the 
accumulator with the character to be output. Line 2840 takes 



the number stored in address COLOR from the COLOR 
statement. It turns out that "printing" a 1 in this way (COL- 
OR 1) selects color register 0, and so on for the other COL- 
OR values. A simple JSR to CIOV in Line 2850 plots a single 
point in our graphics 5+16 screen. 

DRAWTO. 

We wrap up today's macros with DRAWTO, in Lines 
2980-3130 of Listing 1. Again, two parameters are expect- 
ed; a line is to be drawn from the current ciursor position 
to these coordinates. The POSITION macro is again called 
to place the cursor as desired. The command for drawing 
a line is (guess what) DRAW. ICAXl is set to 12, and ICAX2 
to 0. To select the color register for the line drawn, we again 
fish out the result from the most recent COLOR macro call 
and stuff it into a location called ATACHR ($02FB). Jump 
to CIO, and your line magically appears. 

You should now have a pretty good understanding of how 
we can get away with the pseudo-BASIC program in List- 
ing 4. 1 think you'll agree that having these macros around 
makes it easier and faster to write assembly language pro- 
grams. When you combine these macro and subroutine li- 
brary files with the use of the RAMdisk on a 130XE and 
the great speed of the MAC/65 assembler, you have a power- 
ful assembly development environment. 

Tarot cards. 

I see a Boot Camp column with macros for still more BA- 
SIC commands. I see macros for BASIC commands you 
never expected from Atari (maybe from OSS). I see a dis- 
cussion of how to do all sorts of disk things from assembly 
language. I see a return to graphics programming and scroll- 
ing. I see you — next month. H 
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6118 
0128 
8138 
8148 
8156 
8166 
8178 
8188 
6198 
6268 
6218 
6226 
6236 
6246 
6256 
0266 
6278 
6286 
6296 
6386 
6316 
6326 
6338 
6346 
6356 
6366 
8376 
8388 
6398 
6488 



Listing 1. 
Assembly listing. 



pseudo-BASIC Macros for MAC/65 
put in file called MACRO. LIB 



equates needed by nacros 



EOL = 

OPEN = 

GETREC 

PUTREC 

CLOSE = 

DRAM = 

ROMCRS 

COLCRS 

COLOR = 

C0L0R8 

ATACHR 

ICCOM 

ICBAL 

ICBAH 

ICBLL 

ICBLH 

ICAXl 

ICAX2 

CIOU = 



S9B 
$63 
$65 
$69 
$8C 
$11 

= $54 

= $55 
$C8 

= $82C4 

= $82FB 
$8342 
$6344 
$8345 
$6348 
$6349 
$634A 
$834B 
$E456 
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SETCOLOR Hacro 
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0418 
8420 
8438 
8440 
0450 
0460 
8470 
8480 
0490 
0500 
0510 
0520 
0530 
0548 
0550 
0560 
0570 
0588 
0598 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0678 
8688 
8698 
8788 
0710 
0720 
0730 
0740 
0758 
8768 
8770 
8788 
0790 
0800 
0810 
0820 
0830 
8848 
8858 
8868 
8878 
8888 
8898 
8900 
0910 
0920 
0930 
0940 
0958 
8960 
0970 
0980 
0990 
1888 
1018 
1028 
1038 
1040 
1050 
1068 
1070 
1080 
1090 
1188 
1110 
1120 
1138 
1148 
1158 
1168 
1178 
1188 



Usage: 5ETC0L0R X,Y,Z 

X, Y, and Z can be values or 
MeMory addresses 

.MACRO 5ETC0L0R 
.IF >:8<>3 

.ERROR "Error in 5ETC0L0R" 
.ELSE 

.IF Xl>4 

LDX y.L 

.EL5E 

LDX tt^l 

.EHDIF 

.IF K2>15 

LDA Y.2 

asL a 

A5L a 

A5L A 

A5L A 

.ELSE 

LDft ttX2»16 

.EHDIF 

.IF X3>15 

LDY r.z 

.ELSE 

LDY tty.z 

.ENDIF 
STA C0L0Re,X 
TYA 

AND ttl5 
CLC 

ADC C0L0R0,X 
STA COLORO,X 
.ENDIF 
.ENDM 



POKE Macro 
usage: POKE X,Y 
X is an address, Y 



is a value 



.MACRO POKE 

.IF Ke<>2 

.ERROR "Error in POKE" 

.ELSE 

LDA tt <X2 

STA Y.L 

.ENDIF 
.ENDM 
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POSITION Macro 

usage: POSITION X,Y 

X and Y are both values; X 

can go froM 8-319, Y froM 8-191 

.MACRO POSITION 

.IF X0<>2 

.ERROR "Error in POSITION" 

.ELSE 
LDA » <X1 
STA COLCRS 
LDA U >y.i 
STA COLCRS+1 
LDA » <y.2 
STA ROMCRS 

.ENDIF 
.ENDM 



1190 
1208 
1218 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1328 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1488 
1498 
1508 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1710 
1720 
1738 
1748 
1758 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1898 
1980 
1910 
1920 
1930 
1940 
1950 
1960 



OPEN Macro 

Usage: OPEN chan,auxl,aux2,dev 

■Chan' is an lOCB nuMber 
■auxl' is a task nuMber 
■aux2' is the 2nd auxiliary byte 
■dev" is the naMe of the device 
to open, as a literal 

.MACRO OPEN 
.IF X8<>4 

.ERR8R "Error in OPEN" 
.ELSE 

JMP 05KIP0PEN 
ODEUICE .BYTE >'.$4,E0L 
GSKIPOPEN 

LDX ttJ^l»16 
LDA « <ODEUICE 
STA ICBAL,X 
LDA a >GDEVICE 
STA ICBAH,X 

.IF J'.2>255 

LDA y.2 

.ELSE 

LDA ny.2 

.ENDIF 
STA ICAX1,X 

.IF X3>255 

LDA y.z 

.ELSE 

LDA ny.z 

.ENDIF 
STA ICAX2,X 
J5R OPENIOCB 
.EHDIF 
.ENDM 



XKXXXXXXKXXXKKKKXKKKKKKXKXXXXXK 



CLOSE Macro 
Usage: CLOSE chan 
'Chan' is an lOCB nuMber 

.MACRO CLOSE 

.IF y.QOL 

.ERROR "Error in CLOSE" 

.ELSE 

LDX tty.L*i.S 
LDA ttCLOSE 
STA ICCOM, X 
JSR CIOV 

.EHDIF 
.ENDM 

KXKKXXXXXXXXXXXXXKXXXXXKXXKXXKK 



GRAPHICS Macro 

Usage: GRAPHICS X 

X is the nuMber of the graphics 
Mode desired; add 16 to this 
nunber to eliMinate the text 
window 

.MACRO GRAPHICS 

.IF y.oOi 

.ERROR "Error in GRAPHICS" 

.ELSE 

JMP GSKIPGR 
GAUXl 

.BYTE 
GAUX2 

.BYTE e 
GSKIPGR 
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Boot Camp continued 



1970 
198Q 
1396 
2888 
2810 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2890 
2108 
2110 
2120 
2130 
2140 
2150 
2160 
2178 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2278 



LDA UY.l. 
AND tt$OF 
STA GAUK2 

LDA ny.L 

AND tt$F8 
EOR tt$18 
ORA tt$8C 
STA GAUXl 

OPEN 6,GAUK1,GAUX2,"5:" 
.ENDIF 
.ENDM 

KKMKKKKXMKKKKKKKKKKMKKKXKKKKMKX 



PRINT Macro 

usage: PRINT lOCB, address 

lOCB is channel nunber to use; 
'address' is the label of the 
text string to be printed; the 
text string Must have an EOL 
character CS9BJ at the end 

if only one paraMeter, then 
lOCB is assuned to be 8 CE:1 

calls subroutine PRINTLINE 

.HACR8 PRINT 

.IF >;8<1 .OR X8>2 



2288 


.ERROR "Error in PRINT" 


2298 


.ELSE 


2388 


.IF X0=1 


2318 


LDX »0 


2320 


LDA « <y.i. 


2330 


5TA ICBAL,X 


2340 


LDA « >Y.l 


2350 


STA ICBAHjX 


2360 


• ELSE 


2370 


LDX ny.x.*i6 


2380 


LDA tt <X2 


2390 


STA ICBAL,X 


2400 


LDA « >'A2 


2418 


STA ICBAHjX 


2420 


.ENDIF 


2430 


J5R PRINTLINE 


2440 


.ENDIF 


2450 


.ENDM 


2460 
2470 
2488 






2490 


; COLOR Macro 


2500 




2510 


■Usage: COLOR X 


2520 




2530 


X Must be a value 


2540 




2558 


■HACRD COLOR 


2560 


.IF XOOl 


2570 


.ERROR "Error in COLOR" 


2580 


.ELSE 



Megamax C 



for the 



Atari ST 



Featuring 

• One pass Compile • In-Line Assembly • Smart Linker 

• Full Access to GEM routines • Register Variable 
Support • Position Independent Code • and much more... 

System Includes: 

• Full K&R C Compiler (with common extensions) 

• Linker • Librarian • Disassembler • C Specific Editor 

• Code Improver • Documentation • Graphical Shell 



Benchmark ^o^P''^ Execute 
Time Time 

Sieve 70 2.78 5095 

"Hello, world" 63 N/A 4691 

*Times in seconds. Sieve with register variables. 



$ 1 " " . " 5 For more information, call or write: 

Megamax, Inc 

Box 851521 
Richardson, TX 75085 

(214) 987-4931 

VISA, MC, COD ACCEPTED 




IBM Compatibility for your ST! 



By Daniel 
Rosengarten 



*MS.EM: 

IBM Simulator for the ST supports graphics, 

parallel port, and serial port. 

*The MICROBYTE: FCC Approved 

The 5/4" disk drive for the ST 

OS/ DO, 360K, plugs into the 31/2" drive. 

Comes with a SIX MONTH WARRANTY. 

Suggested retail price $235 

Attain IBM compatibility by using MS. EM with 

the Microby te. •Patent pending 

Atari and ST are trademarks of the Atari Corporation 
IBM is a trademark of International Business Machines 




PARADOX ENTERPRISES INC Tucson, Arizona (602)721-2023 
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2590 




LDft ttXl 


2600 




5Tfl COLOR 


2610 




.ENDIF 


2620 




.ENDH 


2630 
2640 
2650 


( ^^^ 




J AXAAAnAAAnAnAAJiJimi.MAnAnAnAnAAAA 


2660 


;PL0T Macro 


2670 






2680 


jusage: PLOT X,Y 


2690 






2700 


;x 


is the x-coordinate 


2710 


;Y 


is the Y-coordinate 


2720 






2730 




.MACRO PLOT 


2740 




.IF X0O2 


2750 




.ERROR "Error in PLOT" 


2760 




.ELSE 


2770 




POSITION !^1,X2 


2780 




LDX »$60 


2790 




LDA ttPUTREC 


2800 




5Tfl ICCOM,X 


2810 




LDA SO 


2820 




5TA ICBLL,K 


2830 




STft ICBLH,X 


2840 




LDA COLOR 


2850 




JSR CIOU 


2860 




•ENDIF 


2870 




■ ENDM 


2880 


9 




2890 


y HX A Ji. Ji«. «. /I «.j^ ««■««.«■««■"■«■««■«""■ """""■■"" 



2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3048 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 



DRANTO Macro 

Usage: DRAMTO X,Y 

X and Y are the endpoints of 
the line to draw; Must be values 

.MACRO DRAMTO 
.IF JC0O2 

.ERROR "Error in DRAMTO" 
.ELSE 

POSITION y.i.,y.z 

LDX tt$60 
LDA ttDRAM 
STA ICCOM,X 
LDA ttl2 
STA ICAX1,X 
LDA »0 
STA ICAX2,X 
LDA COLOR 
STA ATACHR 
JSR CIOM 
.ENDM 



Listing 2. 
Assembly listing. 

0100 ;SUBS.LIB file to go with Macro 
0110 ; library file; required equates 



ATARr 

PRODUCTS 

AT 

DISCOUNT 

PRICES 



8-bit 

GUNSHIP 
Silent Service 
$23.95 eacli 

ST 

GFA Basic 
SUPER Conductor 

$47.95 eacii 
KARATE KID II 
CARDS 2.0 

$23.95 each 
and much, 
much more . . . 



Accessories 

Avatexhcl200 $118.95 



P:R:Connection 
U.S. Doubler 
Rambo XL 
Cables 



59.95 
49.95 
28.95 
10.95 



Postage & Handling 

Kor orders uikIlt SIOO: S.i;over $100: SS 
For a FREE CATALOG call or write: 

MicroLab 

SOFTWARE 

P.O. Box 126072 

Benbrook, Texas 76126 

Voice 817-249-4255 
Modem 817-249-5768 



MUSICIANS 

Turn the Atari ST, a MIDI 
Keyboard, and Midisoft" 

Studio software into 

your own state-of-the-art 

recording studio. 






SiSilSSi 

Record and play in real-time or note- 
by-note, manipulate 32 tracks at one 
time, maneuver or erase phrases of 
music. Create tunes within minutes. 
Midisoft"* Studio makes those com- 
plicated and expensive music pro- 
grams obsolete. 

DEMO KIT $10 
(206) 827-0750 



CORPOHAT 



P.O. BOX 1000. BELLEVGE, WA 98009 



CIRCLE *130 ON READER SERVICE CARD 



EasyFind 

THE BEST ATARr 

INDEX AVAILABLE 

• Have you ever spent HOURS 
looking for a program or article 

• Have you ever said, "I think I 
remember seeing that in 
ANALOG last year ... or was it 
ANTIC?" 

• EasyFind uses Yearly Indexes 
to find forgotten articles Quickly 
and Easily 

• Yearly Indexes summarize 
ATARI® programs, articles, 
letters, reviews, fixes and tips. 
Cross-referenced. 

• Yearly Indexes include: 
ANALOG®, ANTIC®, and 
COr\/IPUTE!® 



EasyFind $2.95 
Yearly Index $9.95 

(1 983-1 986 Available) PER YEAR 



SIERRA SERVICES 

P.O. Box 40454 / Bellevue, WA 98004 
(206)881-0512 

VISA, MASTERCARD. CHECK or MONEY ORDER. 

ADD $1 .50 SHIPPING. $2.00 FOR CO.D. 
WASHINGTON RESIDENTS ADD 8.1% SALES TAX, 
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Boot Camp continued 



0120 
0130 
0148 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0380 
0310 
0320 
0330 
0340 



are in HACRD.LIB file 



KKKKKKKKKKKKKXXKKKKMICKKICKKMICKICK 



subroutine PRINTLINE 
called by PRINT Macro 

prints up to 160 characters on 
lOCB nuMber that is already 
in the X-register 

PRINTLINE 

LDA ni68 
5Tft ICBLL,X 
LDA ttO 
STA ICBLH,» 
LDA ttPUTREC 
5TA ICCOM, X 
J5R CIOU 
HT5 



0350 
0368 
0370 
0380 
0390 
0400 
0418 
8428 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0588 
8518 
8528 
8538 
8548 
8550 
0560 
0570 
0580 
0598 
0688 
8618 
8628 
8638 



;subroutine OPENIOCB 

;called by OPEN Macro 

OPENIOCB 

LDA »DPEN 
STA ICCOM,X 
J5R CIOU 
RT5 



if you use AMAC: 

soMe devices you Might want 
to open - add your own if you 
use other custOM handlers; 
you'll need to define a disk 
filenaMe in full elsewhere in 
your prograM, such as: 

FILEl .BYTE "Dl iSCORES . DAT" 

5 .BYTE "5:" 

E .BYTE "E:" 

C .BYTE "C:" 

P .BYTE "P:" 

K .BYTE "K:" 

H .BYTE "R:" 



SOUTHERN SOFTWARE 

205-956-0986 

24 HOUR PHONE 
CALL OR WRITE FOR FREE CATALOG 

SOFTWARE 30% OFF LIST PRICE 

OVER 2000 TITLES WCtUOED CALL FOR PRICNQ 
PRICES LISTED FOR MAL ORDER ONLY - ADD 10% ON PHONE ORDERS 



HARDWARE 




TITLES NOT LISTED 


CALL 


ST SOFTWARE 




10<0 1 620 ST 


CALL 


CHIPHUMC 


29.95 


3-0 HELECOPTER 


29.97 


1050 DISK DRIVE 


129.95 


ATARI WRITER * 


34.95 


COMPULSIVE COPIER 


29.95 


1050 U/HAPPt mST 289.95 


BASIC CARTRIDGE 


19.95 


COPY II ST 


29.95 


130 IE 


129.95 


BASIC IE 


49.95 


DEGAS ELITE 


47.95 


256K CHIP SET 


21.95 


BASIC IL 


39.96 


COVETED MIRROR 


17.96 


S20 DISK DRIVES 


CALL 


COKPUTER WARS 


14.95 


EXPRESS LETTER 


34.95 


650 INTERFACE 


109.95 


DEFENDER 


4.99 


GATO 


25.97 


« OHHIHOU 


59.95 


DOS 2.5 W/HANUAL 


9.96 


HtD BASE 


69.95 


ACCESSORIES 


CALL 


E.T. PHONE HOBE 


5.99 


CRIMSON CROWN 


17.95 


AP! FACE 


<9.95 


GRAPHICS 1,11,111 


14.97 


LEADER BOARD 


24.97 


AVATEX hODEHS 


CALL 


HAPPT ARCHIVE* 


34.96 


LOGIKHRON CLOCK 


39.95 


CABLES 


13. 9S 


HECAFONT II 


i;.95 


MA« WILLIAMS C 


124.95 


CHIP/ARCHIVER 810 


69. 9S 


DINER 2049ER 


5.95 


HLGAMAI C 


139.95 


EPROH BURNER 


129.97 


MUSIC PAINTER 


5.95 


MODULA-2 


69.97 


EZ RAH 520 


169.95 


P.S. COMPANION 


21.97 


EASY DRAW 


69.95 


HAPPY 1050 ENHAflC 


12A.95 


PAGE DESIGNER 


17.95 


POINT OF SALE 


69.95 


HAPPT 810 ENHANCE 


104.95 


DRAGON RAIDERS 


14.95 


PRINT WORKS 


42.97 


HAPPr CONTROLER 


39.95 


PRINT SHOP 


26.97 


PROLOG 


69.95 


HARD DISK DRIVES 


CALL 


RUBBER STAMP 


19.95 


PUBLISH PARTNER 


119.95 


ICO HID 1 HEG 


CALL 


SPARTA DOS CONST 


29.95 


SOUND DIGITIZER 


119.95 


ICD MIO 256K 


CALL 


STAR RAIDERS 


6.95 


ROGUE 


22.97 


LIGHT PEN 


69.95 


TIME WISE 


6.95 


RUBBER STAMP ST 


24.95 


HEMELL 25eK U.G. 


34.95 


TOP DOS 1.5 PLUS 


29.95 


HOME PLANETARIUH 


20.97 


NUMERIC KEYPAD 


39.95 


TIPESEHER 


19.95 


ST COPY 


29.95 


OHNIVIEW XL/HE 


36.95 


HOKE WORD 


24.96 


LOW BASIC 


69.96 


P.R. CONNECTIOH 


51.95 


HARP SPEED DOS XL 


24.96 


PC BOARD DESIGNER 


169.95 


POWER SUPPLIES 


CALL 


ONE ON ONE 


14.95 


TEMPLE OF APSHI 


19.95 


PRINTERS 


CALL 






STAR RAIDERS 


25.95 


PRINIER CONNECT. 


39.95 


ATARI REPAIR SERVICE 


SWIFTCALC ST 


47.95 


R-TIBE CARTRIDGE 


(9.95 


ITEMS HOT LISTED 


CALL 


THUNDER 


23.97 


RAHBO II UPGRADE 


29.95 


1050 DISK DRIVE 


69.95 


TIME BANDITS 


24.97 


RAHCHARGEft 


139.95 


130 XE 


69.95 


TYPESEnER ST 


24.95 


RAKROO 11 


39.95 


520 Oia DRIVE 


89.95 


ULTIMA 111 


36.97 


TOUCH TABLET 


69.95 


520 ST 


139.95 


VIP PROFESSIONAL 


99.95 


U.S. OOUSLER 


29.95 


850 INTERFACE 


49.96 


WINTER GAMES 


24.95 


UPRINT INTERFACE 


59.95 


ATARI PRINTER 


69.96 


WORLD GAMES 


24.95 


IL/IE BOS 


49.95 


POWER SUPPLV 


12.95 


WRITE 90 


18.97 



PflCES SUBJECT TO CHANGE WITHOUT NOTCH 
ADO tS FOR SHPPMG AND MSURANCE HOST ORDERS SHPPED SAME 

DAY . FOREIGN ORDERS WELCOME WITH SUFFKENT POSTAGE 

NCLUOEO . ALABAMA RESDENTS ADO 7% SALES TAX . ADD 6% FOR 

VISA. ADO »5 FOR ARMAL ADD $1S FOR OVERWGHT SHIPMENT 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BIRMINGHAM, AL 35210 

CIRCLE #132 ON HEADER SERVICE CARD 



Listing 3. 
Assembly listing. 

0100 ;ExaMple 1 for Macro library 

Olio ;by Karl E. Miegers 

0120 ; 

0130 .OPT OBJ, NO LI5T 

0140 .INCLUDE ttD: MACRO. LIB 

0150 »= $5000 

0160 GRAPHICS 2 

0170 5ETC0L0R 2,6,4 

0180 POKE COLORO+4,6 

0190 POSITION 1,1 

0200 PRINT 6,TEKT1 

0210 PRINT TEKT2 

0220 CLOSE 6 

0230 END JMP END 

0240 .INCLUDE UDlSUBS.LIB 

0250 TEKTl .BYTE "THIS is a test",EOL 

0260 TEKT2 .BYTE "Text Window!", EOL 



Listing 4. 
Assembly listing. 

;ExaMple 2 for Macro library 
;by Karl E. Niegers 

.OPT OBJ, NO LIST 
.INCLUDE ttD: MACRO. LIB 
«= $5000 



0100 

0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 

0190 

0200 

0210 

0220 
0230 
0240 
0250 
0260 
0270 
0280 



GRAPHICS 5+16 
SETCOLOR 0,1,12 
SETCOLOR 4,6,8 
COLOR 1 
PLOT 20,15 
DRAHTO 60,15 
DRAHTO 28,35 
DRAHTO 40,5 
DRAMTO 52,35 
DRAHTO 20,15 
CLOSE 6 
END JMP END 

.INCLUDE »D: SUBS. LIB 
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Batcher 



A setup to help with the 
"housekeeping" on your Atari 8-bit. 



by Mack McLeod 



Batching is the process of automating keyboard input by 
allowing commands to be entered from a disk file. This is 
useful for DOS procedures requiring many responses, such 
as loading up a RAMdisk with work files, or using copy, 
rename and lock to maintain multiple versions of a file. 

More than once I've found myself copying the same file 
twice — and, worse, destroying the most current version of 
a file with careless keystrokes. Once familiar with DOS, you 
start wishing for a "setup" procedure to take care of rou- 
tine housekeeping chores, while you concentrate on that 
whizbang program. This is where batching takes over, re- 
lieving typing boredom and securing valuable files. 

Batcher provides this feature, usually found in more ex- 
pensive DOS systems, for any Atari 8-bit that uses a stan- 
dard DOS. Since DOS itself is not modified, no compat- 
ibility problems arise using either release 2.0 or 2.5. Not 
only DOS prompts, but any editor input may be automat- 
ed. Before going into the details, let's look at our interface 
to the new housekeeper 

I call the batch command files "scripts." They contain the 
text of commands just as you would enter them, each end- 
ing with a return character. While this format is produced 
by most text editors, a BASIC program to simply INPUTt 
and PRINT strings to a disk file would suffice for creating 
scripts. 

Batch is invoked by typing a slash (/), followed by the 
filename containing your conunands. Batcher then plays out 
the script, entering commands while you watch them zip 
by faster than your fingers could ever have responded. If 
you omit the device ID portion of the filename, Batcher in- 
serts D:— making disk 1 the default device. For example: 
/BACKUP.BAT and /DliBACKURBAT are equivalent com- 



mands. No file extender is assumed, allowing use of any 
desired name; however, an extender of .BAT is commonly 
used to identify batch files. 

You'll soon be hooked on batching DOS commands, and 
Batcher lets you automate even more! 

Features. 

Batcher can provide input to the E: device from any oth- 
er ClO-supported device. DOS and BASIC coimnands may 
be automated, as well as program prompts using the stan- 
dard IOCB#0 for input. In BASIC, this is the INPUT state- 
ment with no channel number specified. The K: device is 
unaffected, allowing programs to obtain real keyboard in- 
put during a script. 

A batch script may switch back and forth between DOS 
and BASIC modes, copying files, rmrning BASIC or load- 
ing machine language programs with no restrictions on the 
number of commands "batched." For example, a single script 
could begin in DOS, copy files, invoke BASIC with the B 
command and run a program, automating some prompts 
and allowing others from the keyboard. The program could 
stop, the script return to DOS and perform more tasks, then 
enter BASIC again, automatically typing CONT to continue 
the program. While watching BASIC and DOS fly around 
miattended, you may wonder if your Atari still needs you. 

I don't have a modem, so I couldn't evaluate the possibil- 
ities for bulletin board log-ons and the like. 

You may have a script automatically execute when the 
first DOS menu or BASIC READY message appears after 
booting the system, by naming it AUTORUN.BAT on disk 
1 and installing Batcher as AUTORUN.SYS. 

Batching is turned off by pressing RESET from DOS or 
BASIC. It may be reactivated using the L option of DOS to 
load and run the install program. AUTORUN.BAT is not 
invoked when Batcher is loaded in this manner. 
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O Batcher 



continued 



Installing Batcher. 

The BATCH. BAS BASIC program provided creates a bi- 
nary file named BATCH .OBJ. This machine language pro- 
gram may be run from the L option of DOS, or renamed 
to AUTORUN.SYS, to automatically install Batcher and 
make use of an AUTORUN.BAT script. A short message and 
delay informs you of a successful install. If you have an ex- 
isting AUTORUN.SYS you still need, use the /A option of 
DOS copy to append Batcher to it. 

Hints on using Batcher. 

If you use an AUTORUN.BAT script, remember to boot 
the system in the mode that the script was written for En- 
tering DOS commands from BASIC does no damage, but 
is hardly useful. Consider that you may boot the system in 
either mode, and make DOS the first command in the script 
if DOS commands are to be done first. In this way, the script 
will act correctly — whether or not you boot with BASIC ac- 
tive. When booting without BASIC, this simply results in 
the PLEASE TYPE 1 LETTER message, in response to which 
the rest of the commands will be valid. 

Typing a slash with an invalid filename (from the DOS 
menu) also results in this message. You need not type one 
letter, as the correct/filename command will still be accept- 
ed. An invalid entry in BASIC causes the usual error mes- 
sage, as would any other invalid command. 

Remember that DOS will issue a prompt asking whether 
or not the program area may be overwritten when doing 
file copies. If Y is answered, subsequent copies will not be 
prompted again. If your script will return to BASIC and con- 
tinue a program, it must answer N to all such prompts, so 
as not to erase the program in memory. 

Some care must be taken when automating DOS com- 
mands, as Batcher will relentlessly answer prompts until 
the end of your script file is reached. Avoid using single- 
letter filenames — particularly D, Y or I, which are valid DOS 
commands and responses. Automated deletion of your fa- 
vorite file is no improvement over making the mistake 
manually! 

The procedure for automating any manual task is to care- 
fully note each step, taking time to understand why it's be- 
ing done. An efficient automation script may then be de- 
signed and tested under the various conditions it is expected 
to handle. Hastily typing up a batch script on your favorite 
disk can be a quick and bitter lesson on the efficiency of 
automated mistakes. 

Start with small scripts until you get used to the process. 
Then amaze your friends with a graphic DOS program, 
creating scripts from joystick and icons, exiting to DOS to 
execute the commands and reload itself. 

The following BASIC example shows how a program may 
start a batch script. The same technique will work in ma- 
chine language. 

10 REM PROGRAM INVOKED BATCH SCRIPT 

20 TRAP 80 

30 CLOSE »5 

40 OPEN tt5,4,e,"D:DEM0.B0T" 

50 FOR 1=0 TO 15 

60 POKE 1776+1, PEEKt912+IJ 

70 NEXT I 

80 CLOSE tt5:5T0P 



The technical notes at the end of this article explain 
what's happening. Note that the script takes over when Line 
80 completes the STOP statement and the BASIC READY 
message appears. 

Requirements and cautions. 

Batcher uses all of page 6 and 32 bytes at the bottom of 
the page 1 machine stack. It is unlikely that any program 
will require so much stack space that it will overlay Batch- 
er, but some programs intentionally overwrite this area as 
a step in copy protection. 

You must avoid BASIC subroutines in page 6 or page 1. 
Remember to disable Batcher by pressing RESET prior to 
running such programs. 

A batch script may not invoke another Any text in a batch 
file is passed back as is. 

Channel number 5 (IOCB#5) is generally reserved by 
Batcher during an active script. Programs may use it dur- 
ing batch for nondisk devices such as K: or S:. 

An active batch script is an open disk file to DOS, so it 
reduces your allowed maximum of three concurrently open 
disk files to two. Error code 161 will occur if too many disk 
file opens are attempted. 

Programs which add commands to BASIC may override 
Batcher if they do not use the Operating System (OS] ta- 
bles correctly, or if the slash is used as a keyword. 

You must also avoid program responses to the E: device 
that begin with a slash and are not batch requests. Batcher 
modifies such commands, and will likely return incorrect 
data to your program — or invoke a batch script if a valid, 
existing filename is found. 

Technical notes. 

If you don't wish to delve into the OS contructs in Batch- 
er, move on to the BASIC listing and enjoy the power of 
batch processing that much sooner. The machine language 
is only about 524 bytes long, so it's not too much of a chore 
to type in. What follows is a description of the main points 
of interest. The heavily commented assembly listing may 
be consulted for more detail. 

Batcher consists of an install program and the resident 
page 6 code, assembled together. The install portion is "edi- 
tor trap" programming, often used to add commands to BA- 
SIC. Simply put, the Atari device handler tables are modi- 
fied so that CIO calls page 6 instead of the Atari editor for 
GET operations. 

The real editor GET and PUT 1 BYTE routine addresses 
are obtained from standard locations in the E: handler ta- 
ble and ICPTL field of IOCB#0. These are saved inside 
Batcher to allow nonbatch editor input and the echoing of 
batch data to the screen. The resident part of Batcher is then 
copied to page 6 and a short message issued. IOCB#5 is 
closed and copied to location $6F0 inside Batcher This is 
the area modified by the BASIC sample above. The OS vari- 
able WARMST is then tested and, if the system is being 
booted, an attempt is made to open D: AUTORUN.BAT. The 
$6F0 area is swapped with IOCB#5 to reflect its success 
or failure. The install program then returns to DOS. 

The $6F0 location is Batcher's private lOCB, which I've 
dubbed the BIOCB. Its labels follow the convention of ZI- 
OCB, used by CIO. This copy allows Batcher to run in both 
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DOS and BASIC. Normally, invoking BASIC or using the 
LOAD and RUN commands closes IOCB#5, which would 
terminate a script using it for disk I/O. The copying of a 
closed lOCB to the BIOCB initializes it with no file active. 

Editor calls now go to Batcher, v\;hich tests the BIOCB 
to see if it's open. If so, the I/O subroutine is called, which 
swaps IOCB#5 and BIOCB contents before doing the batch 
read. The ZIOCB is also swapped with a save area. This 
is necessary as CIO is in the middle of an E: device han- 
dler operation, with its status maintained in the ZIOCB. 
The contents of ZIOCB when BATCIO actually calls CIO are 
irrelevant, as CIO initializes it for each new operation. 

Once the batch disk read is complete, the swaps are done 
again to restore the ZIOCB for CIO and return the new sta- 
tus of batch I/O to BIOCB. The script file byte just obtained 
is returned to CIO, which then handles it as if it had come 
from the keyboard. Any error during batch I/O closes the 
BIOCB, terminating the current script. 

When the BIOCB is not open, the Atari editor is called 
normally, returning each byte of text until RETURN is 
pressed. Batcher then checks the start of the entry for a 
slash. If one is found, an attempt is made to open the file- 
name indicated. If successful, the E: copy of ZIOCB is modi- 
fied to look as if no data were entered. This, in effect, erases 
the slash command and lets the batch data replace it. The 
first batch byte is then retrieved and returned to CIO, which 
treats it as the first byte entered on the keyboard. 

Although Batcher is not a standard CIO calling program, 
the constructs and variables used are consistent with CIO 
operation in all Atari models. 

Beyond Batcher. 

The concept of a programmed batch poses many possi- 
bilities. Just remember to treat the BIOCB as a regular file, 
swapping it with IOCB#5 before and after I/O operations. 
If the BIOCB is open and you wish to terminate the current 
batch session and begin a new one, close it and reopen with 
the desired script file. 

The ZIOCB may be ignored by your programming, since 
you're operating outside of CIO, unlike Batcher itself, which 
is inside CIO. 

Many embellishments just wouldn't fit into page 6 and, 
since my design goal was to support DOS and BASIC modes. 
Batcher is missing such goodies as: parameter input to a 
script, IF logic inside a script, nested scripts, and a mes- 
sage trap allowing IF logic to determine whether or not a 
batch action was successful. An enterprising programmer 
could provide these functions, at least in BASIC mode, by 
expanding the program at MEMLO. 

Put your imagination to work; you'll find many uses for 
batching, beyond the simple automation of DOS commands. 
In any case, you'll have more time to think about it now, 
while those file copies buzz along without you! fl 

Mack McLeod is an Analyst/Programmer /or a major 
Canadian bank. Even though he works with the largest of 
mainframes, he's amazed at the power and /JexibiJity of 
Atari 8-bit machines. He believes they truly provide "Pow- 
er without the Price." He programs his 130XE primarily in 
assembly, occasionally in BASIC, and now in C. 



The two-letter checksum code preceding the Une 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 



UF IB REM BATCH. BA5, CREATE BATCH. OBJ 

ME 20 OPEN ttl,8,0,"D:BATCH.0BJ" 

RR 38 FOR 1=1 TO 524 

PR 40 READ AiPUT ttl,A 

IT 50 NEKT I 

LM 60 CL05E »1 

IN 70 ? CHR$(125};"D:BATCH.0BJ CREATED" 

VM 80 END 

IM 900 DATA 255,255,0,64,255,65,169,0,133 

,20,32,224,64,160,0,185,26,3,201,69,24 

0,8,200,200,200 
Kft 901 DATA 192,33,144,242,96,200,132,205 

,185,26,3,133,203,200,185,26,3,133,204 

,160,15,177,203,153,0 
BH 902 DATA 1,136,16,248,173,4,1,24,105,1 

,141,64,65,173,5,1,105,0,141,65,65,173 

,78,3,24 
MG 903 DATA 105,1,141,45,65,173,71,3,105, 

8,141,46,65,169,255,141,4,1,169,5,141, 

5,1,164,205 
QQ 904 DATA 169,0,153,26,3,200,169,1,153, 

26,3,160,0,185,16,65,153,0,6,200,192,2 

40,208,245,169 
BR 905 DATA 10,133,84,169,15,133,85,162,0 

,169,250,141,68,3,169,64,141,69,3,169, 

8,141,72,3,138 
ttR 906 DATA 141,73,3,169,11,141,66,3,32,8 

6,228,162,80,169,12,157,66,3,32,86,228 

,160,15,185,144 
Ky 907 DATA 3,153,240,6,136,16,247,165,8, 

208,33,162,80,169,2,157,68,3,169,65,15 

7,69,3,169,1 
KH 908 DATA 157,73,3,169,4,157,74,3,169,3 

,157,66,3,32,86,228,32,202,6,165,20,20 

1,112,144,250 
QA 909 DATA 32,224,64,24,95,169,0,170,141 

,68,3,141,69,3,141,72,3,141,73,3,169,1 

1,141,66,3 
FR 910 DATA 169,125,32,86,228,96,160,194, 

193,212,195,200,197,210,68,58,65,85,84 

,79,82,85,78,46,66 
MU 911 DATA 65,84,155,173,240,6,48,38,169 

,0,141,244,6,141,245,6,141,248,6,141,2 

49,6,160,7,32 
EI 912 DATA 174,6,48,17,165,47,32,0,0,165 

,47,24,144,2,169,155,162,0,160,1,96,16 

2,0,160,1 
LE 913 DATA 32,0,0,192,128,240,244,201,15 

5,208,240,160,0,145,36,173,68,3,133,24 

3,141,244,6,173,69 
ZF 914 DATA 3,133,244,141,245,6,177,243,2 

01,47,208,208,160,12,32,174,6,160,2,16 

9,58,209,243,240,32 
ML 915 DATA 200,209,243,240,27,173,72,3,5 

6,229,40,168,177,243,208,145,243,136,1 

36,208,247,169,68,145,243 
UM 916 DATA 200,169,58,145,243,208,8,238, 
^, 244,6,208,3,238,245,6,169,1,141,249,6, 
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13 Batcher 



continued 



RO 917 DftTfl 136,32,174,6,48,139,165,243,1 

33,36,165,244,133,37,173,72,3,133,40,1 

73,73,3,133,41,76 
TM 918 DATA 5,6,140,242,6,32,262,6,162,88 

,32,86,228,141,31,1,16,12,152,72,169,1 

2,157,66,3 
CX 919 DATA 32,86,228,104,168,152,72,168, 

15,185,32,0,72,185,16,1,153,32,0,104,1 

53,16,1,185,144 
PM 920 DATA 3,72,185,240,6,153,144,3,104, 

153,240,6,136,16,225,104,168,96,226,2, 

227,2,0,64 







Listing 2. 






Assembly listing. 




BATCHER 






FOR DOS 2.x 




MARMST 


:: 


8 


boot flag 


CL0CK3 


z 


$14 


tiMer 


ZIOCB 


z 


$20 


pg.O lOCB, 


ICBALZ 


— 


$24 


addr-lo. 


ICBAHZ 


— 


$25 


addr-hi, 


ICBLLZ 


— 


$28 


len-lo. 


ICBLHZ 


~ 


$29 


len-hi. 


ICAX6Z 


— 


$2F 


aux6. 


RDMCR5 


— 


$54 


Cursor row. 


COLCRS 


r 


$55 


and coluMn. 


EPTR 


- 


$CB 


Work word. 


INDEX 


— 


$CD 


and bi/te. 


INBUFF 


z 


$F3 


Buffer addr 


BATZIO 


— 


$0110 


ZIOCB copy 


HATABS 


— 


794 


10 handlers 


lOCBO 


— 


832 


,IOCB start, 


ICCOM 


— 


834 


Connand. 


IC5TA 


z 


835 


Status. 


ICBAL 


z 


836 


Buffer, 


ICBAH 


— 


837 


address. 


ICPTL 


~ 


838 


Put 1 byte. 


ICPTH 


z 


839 


ivector. 


ICBLL 


z 


840 


;buf fer. 


ICBLH 


z 


841 


; length. 


ICAKl 


z 


842 


;aux. info 


I0CB5 


z 


912 


;»5 hdler-id 


CIOU 


= 


58454 


;l/o rtn. 




Find 


and replai 


:e E: table 




»= 


$4000 






LDA 


ttO 


;tiner set. 




5TA 


CL0CK3 


;at 0. 




J5R 


CLEARS 


iClear scrn 




LDY 


tto 


;Find, 


FINDIT 










LDA 


HATABS, Y 


;editor. 




CMP 


«'E 


; vector 




BEQ 


FOUNDIT 


Found. 




IHY 




Skip this. 




IHY 




3 byte. 




INY 


. 


entry. 




CPY 


«33 , 


Loop thru. 




BCC 


FINDIT 


table. 




RT5 


, 


Failed. 


FOUNDIT 










IMY 


, 


Skip E 




STY 


INDEX , 


Save index 




LDA 


HATABS, Y 


J Set addr. 




5TA 


EPTR , 


of E: rtn. 




INY 


, 


table in. 




LDA 


HATABS, Y 


jpointer. 




STA 


EPTR+1 i 


word. 




LDY 


ttl5 ; 


Copy all. 


COPYIT 









COPYBAT 



INITBIOCB 



MAITABIT 



LDA 
STA 
DEY 
BPL 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDY 

LDA 
STA 
INY 
CPY 
BNE 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
TXA 
STA 
LDA 
STA 
JSR 
LDX 
LDA 
STA 
JSR 
LDY 
} 

LDA 
STA 
DEY 
BPL 
LDA 
BNE 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 

LDA 
CMP 



tEPTRJ,Y 
$0100, Y ; 

COPYIT ; 
$0104 ; 

ttl i 
BATMON+1 
$0105 ; 
ttO 

BATMON+2 
ICPTL ; 

»i ; 

BATECO+1 
ICPTH ; 
«o ; 

BATECO+2 
tt$FF ; 
$0104 ; 
»5 ; 
$0105 ; 

INDEX ; 
ttO i 
HATABS, Y 

»i ; 

HATABS, Y 
ttO : 



;16 bytes, 
of editor, 
vectors, 
to PG.l. 
E: GET, 
vector+l, 
saved in, 
; BATCHER, 
for non- 
batch, 
;connands. 
Save, 
editor, 
put 1, 
jbyte rtn, 
for echo, 
of batch, 
;coMMands. 
New E:, 
GET addr., 
-1 in new, 
E: table. 
New E:, 
table, 
; address, 
in device, 
handler, 
;table. 
Copy, 



BATCHER, Y ;code to, 

$0600, Y ;its pg. 6, 
;residence. 

0BATLEN ;Len. nust, 

COPYBAT ;be < 256. 
;Row and, 
;colunn, 
;to put, 
; Message. 
;E: loCB. 

«INMSGS255 ;Msg-l0W. 

ICBAL ;Addr.l0W. 

ttINMSG/256 ;Msg-hi. 

ICBAH jAddr.hi. 
; Length , 
;of Msg. 
;Zero hi, 
; len.byte. 
;Put data, 
;I/0 end. 
;Send nsg. 
;File tt5, 
;close. 



»10 

ROMCRS 

ttl5 

COLCRS 

»0 



tt8 
ICBLL 

ICBLH 

ttll 

ICCOM 

CIOU 

tt$50 

ttl 2 



ICCOM, X ;conMand, 



CIOU 
ttl5 



;to init, 
;BIOCB. 



I0CB5,Y ; 
BIOCB,Y ; 

INITBIOCB 
WARMST ; 
WAITABIT 
tt$50 ; 
ttAUT0&255 
ICBAL, X 
«AUT0/256 
ICBAH, X 
ttl 

ICBLH, X 
tt4 

ICAX1,X 
tt3 

ICCOM, X 
CIOU 
BATSMAP 



Copy ttS, 

Closed, 

Status, 

;tO BIOCB. 
Skip if, 
;not boot. 
Bat. iocb 

j Autorun, 
script, 

;file, 
nane. 
Enough, 
length. 
Input, 
Mode I/O. 
Open, 
coMMand. 
try open. 
BATSAUE. 



CL0CK3 ;Wait for, 
tt$70 ;a while. 
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BCC NAITABIT J to pass. 





J5R 


CLEARS 


;cir scrn. 




CLC 




;Clean, 




RTS 




; return. 


CLEARS 










LDA 


«e 


;Zero the. 




TAX 




;iocb and. 




STA 


ICBAL 


; address. 




STA 


ICBAH 


;and. 




STA 


ICBLL 


J length. 




STA 


ICBLH 


;for 1, 




LDA 


«11 


jbyte put. 




STA 


ICCOM 


jconnand. 




LDA 


«$7D 


; froM A, 




J5R 


CIOU 


; register. 


i 


RTS 
.BYT 

• Byi 




;Return. 


INNSG 


E ■■■jEna 


TT311" 


AUTO 


PE "DZAUTDRUN.BAT" 




.BYTE $9B 





BATCHER 

E: device GET CHAR rtn. 
Cnon-relocatable labels, 
set as PS. 6 offsets.! 



BATCHER 










LDA 


BIOCB 


;active BAT? 




BHI 


BATEDI 


;No-real E: 


BATGET 


- 


$B60fl+»-BATCHER 




LDA 


W3 


;set BIOCB, 




STA 


ICBALB 


;up for 1, 




STA 


ICBAHB 


Ibyte GET, 




STA 


ICBLLB 


'to be. 




STA 


ICBLHB 


returned. 




LDY 


tt7 


in A reg. 




JSR 


BATCIO 


Real E:, 




BMI 


BATEDI 


if error. 




LDA 


ICAXeZ 


saved byte 


BATECO 


JSR 


S60 J 


CRT echo. 




LDA 


ICAX6Z J 


restore. 




CLC 




data. 




BCC 


BATXIT 


return. 


BATX9B 


LDA 


tt$9B 


return EOL 


BATKIT 


LDX 


»0 ; 


E: IOCB. 




LDY 


«1 J 


Return, 


BATRTS 


RTS 




status ok 



Allow real E: input. 
Match for / connands. 



BATEDI LDX 
LDY 

BATMDM JSR 
CPY 
BEQ 
CMP 
BNE 
LDY 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
CMP 
BNE 



fits 

ttl 

$00 

tt$80 

BATRTS 

«$9B 

BATRTS 

tto 

CICBALZ] 
ICBAL 
IHBUFF 
ICBALB 
ICBAH 
INBUFF+1 
ICBAHB 
tlHBUFFJ 
«V 
BATX9B 



;E: IOCB 
;Stat.o.k 
;User key. 
; Break? 
; Yes-exit. 
J EOL ? 
;No-exit. 
;Save EOL, 
,Y ;for CIO. 
;Caller, 
;buff ptr, 
;to pg.O, 
;and BIOCB 
;in case, 
;needed . 
,Y ;15T byte, 
' ;is BATCH? 
;Ho-return 



Start a BATCH script 



BATGO 



LDY ttl2 
JSR BATCIO 
LDY «2 
LDA tt' : 



;close, 
; BIOCB. 
;Test if, 

JD! 



^^ 


iKVniCE 








1 1 
















Fi 


~^. 








= 




-- 




s^ 





'The most useful program for the Atari since Print Shop!*" 



FORMS GENERATOR 

for the Marl 800, 800XL, 65XE, 130XE 

Designed by Jeff Brenner, columnist for Computer Shopper 
magazine, of "Applying Tfie Atari" fame, and autfior of book 
and magazine articles in COMPUTE!. ANALOG and otfiers. 
LOOK WHAT YOU CAN DO WITH FORMS 
GENERATOR: Purchase merchandise by mail? Next 
time, send a customized purchase order form! Does 
your home or business ever need statements, in- 
voices, proposals, job work orders, gift certificates, 
etc.? No problem! Use FORMS GENERATOR'S scrolling spreadsheet- 
style screen to design almost any form to suit your exact needs. What 
you see on-screen is what you get on paper! Use the text mode with any 
80-column printer, or the high-res graphics mode with the Epson, 
Gemini/Star, Okidata, Panasonic or Prowriter for remarkably realistic 
forms. BUT THAT'S JUST THE BEGINNING: Once you've designed a 
form, you can program FORMS GENERA TOR to makeall calculations 
automatically! Imagine: after you enter quantities, descriptions and 
prices. FORMS GENERATOR moves about the form calculating ex- 
tended prices, subtotals, and even the sales tax! Like magic! (Sample 
invoices included). You can also use FORMS GENERATOR tor record 
keeping, since you can save filled forms to disk! 

Read wtial our customers have written: "Excellent . .. easy to use and ran perfect(ly) 
, , -" T.W. Wethersfield, Connecticut: "I was most impressed witti your FORMS 
GENERATOR program ' J.E. King, Soutti Carolina: "Love it!" C.fl. Cortland. Ohio. 
Our "down to planet Earth" price: Only $23.95 (product #ATA611). 

D YES! !'li;.iau lusli mo FOfi/wS Gl/VC/;/! 70/I ipioduc! 
ttATA611) witli complete documentation, 90-day free 
replacement warranty, full customer service support and 
20-page Atari software catalog. I am enclosing $23.95 
+ $2.74 {for first class sfiipping and tiandling.) 
DCheck/Money Order enclosed DC.O.D. (add $2.50) 
DMasterCard D Visa 




Name 

Address _ 

City 

Card No. _ 
Signature 



-Zip 



Softujore Dtvision 
Dept. AT2 

254 Fifth l^enue 

Suite 301 

Neuj Vorti, N V 1 000 1 

New York State residents add 8% sales tax. 
'The Print Shop and Atari are registered traderr^arlts of Broderbund Soltware and Atari 
Corp.. respectively. ■ — Prices and availability subiect to change without notice. 

CIRCLE #133 ON READER SERVICE CARD 



_Exp. Date 
_Ptione « _ 



Get 

this 

issue 

on 

Disk! 



$9.50 plus $1.50 

shipping and 
handling 




Call 
(617) 892-9230 



or. 



CMP fINBUFFJ,Y SDn: , 
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3 Batcher 



continued 



BEQ 


BflTINC 


; foPMat, 


INY 




;was. 


CMP 


(INBUFF) 


,Y ; keyed. 


BEQ 


BflTINC 


; Yes-open. 


LDA 


ICBLL 


Only a. 


5EC 




nane was. 


SBC 


ICBLLZ 


keyed, 


TflV 




so we. 


BATLl LDA 


CINBUFF} 


Y ;Must, 


INY 




; shift. 


STfl 


CINBUFF} 


pY ;right. 


DEY 




; overlay. 


DEY 




;slash. 


BNE 


BATLl 


;with D, 


LDA 


«'D 


;and. 


STfl 


(INBUFFl 


Y ; insert a. 


INY 




colon. 


LDfl 


»■ : 


;after it. 


STfl 


(INBUFFl 


,Y ;then go. 


BNE 


BflTOPN 


open file 


BATING INC 


ICBALB 


Skip, 


BNE 


BflTOPN 


the / to. 


INC 


ICBflHB 


f ilenane. 


BflTDPN LDfl 


»1 


Set up. 


STfl 


ICBLHB 


BIOCB, 


LDY 


»4 


for Open, 


STY 


ICAKIB 


input. 


DEY 




end and. 


J5R 


BATCIO 


try open. 


BNI 


BATX9B 


failed. 


LDfl 


INBUFF ; 


Tell CIO, 



MOVING? 

DON'T MISS A SINGLE ISSUE. 

Let us know your new address right away. Attach an old mail- 
ing label in the space provided and print your new address 
where indicated. 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

n New subscription. Please allow 4-8 weeks for your first 
copy to be mailed. 

n Renewal subscription. Please include a current address 
label to insure prompt and proper extension. 

D 1-year $28.00. This rate limited to the U.S.A. and its pos- 
sessions. 

D Payment enclosed. 

n Bill me. 



MAIL TO: ANALOG COMPUTING 
P.O. Box 615, Holmes, PA 19043 



Name 
Address 
City 



State . 



Zip. 



«-. 



ATTACH LABEL HERE 



(IF LABEL IS NOT HANDY, PRINT OLD ADDRESS IN THIS SPACE) 



STA 
LDA 
STfl 
LDA 
STA 
LDA 
STA 
J MP 

BATCIO = 

STY 
JSR 
LDK 
JSR 
STfl 
BPL 
TYfl 
PHfl 
LDfl 
STfl 
JSR 
PLA 
TAY 

BflTCIK = 

BATSMAP = 

TYA 
PHA 
LDY 

BATSML LDA 
PHA 
LDA 
STA 
PLA 
STA 
LDA 
PHA 
LDA 
STA 
PLA 
STA 
DEY 
BPL 
PLA 
TAY 
RTS 



ICBALZ i 
INBUFF+1 

ICBAHZ ; 

ICBLL j 

ICBLLZ i 

ICBLH J 

ICBLHZ J 

BATGET ] 



that the, 
;editor, 
buffer, 
is enpty, 
ignoring, 

/ CMd,tO 

replace, 
with BAT. 



SO6O0+«-BflTCHER 



ICCOMB 
BflTSMflP 

CIOU 



BATZIO+15 ;Save data 
BATCIX ;I/0 O.K. 
Status, 
saved. 
ni2 ; Close US, 

ICCOM,X ; restore, 
CIOU ;status, 

and fall, 
thru to, 
BATSMAP. 
S060O+W-BATCHER 
save Y, 



»15 
ZIOCB,Y 

BATZIO,Y 
ZIOCB,Y 

BATZIO,Y 
I0CB5,Y 

BIOCB, Y 
I0CB5,Y 

BIOCB, Y 

BATSNL 



Save end. 
Swap I/O. 
BAT lOCB. 
DO I/O. 



reg. Set, 
copy len. 
ZIOCB, 
byte save 
;copy old, 
to ZIOCB. 
Get ZIO, 
;save it. 
File ttS, 
saved. 
BAT IOCS, 
to ns. 

Old tt5, 
saved, 
loop for, 
16 bytes. 
Restore, 
Y reg, 
and retn. 



Private lOCB 



BIOCB 

ICCOMB 

ICBALB 

ICBAHB 

ICBLLB 

ICBLHB 

ICAXIB 

BATLEN 



.END 



^eeeo+w-BATCHER 

BIOCB+2 ;CMd. 
BloCB+4 ;buffer, 
BloCB+5 ; address. 
BIOCB+8 ;buffer, 
BIOCB+9 ; length. 
BIOCB+ie ;I/0 node 
BATCHER, 
»-BflTCHER ; length 



iLu AuuHtaa IN iHia space) ■ 
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Isgur Portfolio System 




(FllDesli (F6)6enEral lF71Prlces IHilliPFTWII (FilReiiiw (FlBWeplaj 



Select the stock Hhich his sulit or 
declared a stock dividend bu clicking 
on its entry In tlie list, In tlie dati 
entrg Hlndw, enter tlie split ratio 
and effective date of tlie split, Von 
nay enter the split either as a ratio 
(Z For 1) or as a percentage dOB'!), 
Click on STKE to record the 
infomation. Select IGNIKE if yoii 
select a line and decide npt to nAc 
the split. 

For nore details, refer to IPS ninual 
Reference Section, Page 6!, 



Html 



m or '!■ changil 



rsTST 



I IBHDRE I 



Select the security that you xish to spiit/add dividends by 'didting' in 
the top boil, Vou nay then enter a split ratio, or ^ change, II spilt ratio 
of I for i (or !BBK) for IB shares at $t Hill give you 4B shares at SZ, 



by Lee Isgur and Mark Skapinker 

ELECTRONIC ARTS/BATTERIES INCLUDED 

1820 Gateway Drive 

San Mateo, CA 94404 

(415) 571-7171 

High or medium resolution $199.95 



by Steve Panak 



Although I'm best known for my re- 
views of recreational software, my life is 
not filled exclusively with fun and games. 
In fact, in my other identity, I'm a Trust 
Attorney in charge of pension administra- 
tion in a large midwestern bank. In this 
role, I take part in the trading of stocks 
and bonds held in relatively large pension 
portfolios. Nattrrally, I jiunped at the op- 
portimity to take a look at a portfolio man- 
ager for the ST. 

The Isgur Portfolio System is targeted 
at individual investors and money man- 
agers who wish to avoid the high-priced, 
mainframe-based subscription services. 
In testing it, I took full advantage of the 
vast differences in sizes of our accounts, 
which can range from IRAs of less than 
$100,000 to large corporate pension funds 
in excess of $30 million. A sampling of 
these accounts were brought up to date 
from past statements, then the program 
was used to chart growth. 

When you receive Isgur, needless to 
say, it's not ready to run. Like all profes- 
sional business programs, it must be con- 
figured to your system. The number and 
type of drives is just one factor which in- 
fluences the program's behavior. And how 
a program handles the installation pro- 
cess often makes or breaks it. 

Busy people who buy software to save 
time don't want to spend that time [and 
often much more) figuring out how to use 



it. In most PC-compatible software, this 
installation process is handled through a 
batch program, which copies various files 
onto various disks, to be inserted into var- 
ious devices after various and numerous 
prompts. Isgur for the PC has such a pro- 
gram. Isgur for the ST does not. 

This is not fatal, though. Installation 
goes fairly smoothly if you read and care- 
fully follow the instructions given in the 
manual's Appendix C. There's an installa- 
tion screen on which you specify where 
the program files are to be located. An- 
swering a couple of simple questions cre- 
ates a file INSTALL.IS, which you must 
copy into folders on each of the four disks 
you'll be using. 

Once you finish the installation process, 
it's time to get down to some serious work. 
The package itself consists of three pro- 
grams, each of which is fully capable of 
standing alone. The I*S Bridge is your 
gateway to The Isgiu- Portfolio, as is I*S 
Talk, a communications program review- 
ed in ST-Log 11, February 1987. You be- 
gin all your work sessions from Bridge. 

1-lowever, once you become familiar 
with Bridge, you'll find it much more 
than simply a stepping stone to the other 
I*S programs. Its premier feature is the 
memo calendar. This useful utility allows 
you to make memos and tie them to cer- 
tain dates and times. You can then read 
these messages back at your leisure. This 
is the perfect tool to create a tickler file 
or an audit trail. 



To create a memo, you just click on 
"MAKE." A window opens which lets you 
input a date and time, the subject of the 
memo, and its origin (such as Bridge, or 
Isgiu-, which will automatically create its 
ow^n memos). This gives the illusion that 
you are able to input memos from any I*S 
program. This is not the case, and if you 
wish to make a memo while working in 
Isgur, you must exit to the Bridge in or- 
der to do it. You may then enter up to six 
lines of text. 

Once your note is entered, all you do 
is click on the calendar date whose notes 
you wish to view (the date w^ill be marked 
as one which has notes attached), then 
click on "View today's memos." You can 
also choose to view all memos, or only 
waiting memos, which are those with 
dates less than the current date. Marking 
a memo as "Read" will cause it not to be 
listed as a waiting memo. 

I felt the memo portion of this program 
was very useful, except for one slight 
drawback. I was not given the ability to 
search, electronically, for memos with a 
certain subject, or to search for a charac- 
ter string in the body of the memo. This 
becomes a more necessary feature as your 
memo database becomes larger. Finally, 
you're able to print your memos. 

After you're through making memos, 
it's time to get to the heart of this powerful 
package. Clicking on the Isgur icon from 
the Bridge starts the Isgur Portfolio Sys- 
tem. 'When Isgur takes over the display, 



ANALOG COMPUTING 



JUNE 1987 / PAGE 89 



// Review continued 



you have six main menu choices, each 
with a number of sub-choices. "Desk" 
provides access to desktop accessories, 
and "General" allows you to control cer- 
tain program parameters and customize 
the package. The "Prices" menu lets you 
update prices of securities, while "Buy/ 
Sell" does pretty much what you would 
expect it to do. Finally, the "Replay" op- 
tion is actually a powerful macro facility, 
to let you play back a sequence of keys- 
trokes with a single key. Each menu is 
dropped by touching it with the pointer, 
or by pressing a function key. 

After customizing the program, perhaps 
choosing to have the prices displayed as 
decimals rather than fractions, and tell- 
ing it what type of printer you're using, 
you choose a portfolio to work with. Un- 
fortunately, at the outset you'll have no 
portfolios available (other than a sample 
one created for you). So your logical first 
step would be the Buy menu. 

This window contains a summary of 
important data (such as number of units 
and cost) about the securities in your 
portfolio. In this, as in all other windows, 
a scroll bar is used to indicate additional 
items, and dragging it scrolls you through 
them. Below this display is a similar area, 
but blank, into which you insert new 
buys. The bottom of the screen contains 
other option icons, including useful (al- 
though not extensive) help screens. When 
you enter a security for the first time, a 
second window opens to allow input of 
additional security information. This will 
then apply to all additional units of this 
security purchased. Although it's tedious 
to place an entire portfolio into the sys- 
tem, once you've finished the result will 
be more than worth it. 

Sales are handled in a manner very 
similar to buys, and an additional feature 
lets you specify an amount of money you 
need to raise — the program will suggest 
the sells to meet your goal. These sugges- 
tions are based on certain system prefer- 
ences you enter on the general informa- 
tion screen (such as favoring short-term 
losses). As with buys, you can revie^/v past 
sales. The Buy/Sell menu also records 
stock splits, and keeps track of cash and 
margin accounts. 

Using the Prices menu, you're able to 
update the prices of the securities in your 
portfolios. This is probably the most cru- 
cial aspect of this type of program, as ease 
of entering current prices determines just 
how often these prices will be updated. 
And this determines how recent the val- 
ues in your portfolios will be. 



Fortunately, Isgur allows for automatic 
updates of prices, over the phone line 
from any of a number of sources. Al- 
though The Source sometimes improperly 
downloads prices, Dow Jones and Com- 
puServe provide good, fast updates. You 
simply specify the service and various 
equipment settings, and the program will 
suck in the latest prices — assuming you 
have given the correct symbols for each 
of the securities. You can then check to 
see if any of your holdings were improp- 
erly updated, and these can be posted 
manually. 

The Review menu will probably be- 
come yoxor favorite, because it's your gate- 
way to evaluating your portfolio. This 
menu allows you to examine portfolios, 
and to create reports and graphs evaluat- 
ing their worth. 

Three reports are available. The first 
contains portfolio values, and you can 
choose to look at one or any number of 
portfolios. This report lists each securi- 
ty, along with its price, cost, and other in- 
formation. It also gives the total account 
value. The second reports on securities, 
either in one or in many portfolios. The 
third shows a summary of all real gains 
and losses from sales, again, in any num- 
ber of portfolios. All these reports can be 
printed out easily, in an attractive format. 
Each report screen also has various op- 
tions, to change the way you view your 
data. 

Isgur also creates graphs. The first com- 
pares current value to cost for all portfo- 
lios, or for those selected. The second 
creates a pie graph, showing the diversifi- 
cation of the secm-ities in a given portfo- 
lio. While all these graphs were easily 
created, I was disappointed that there was 
no way to print them out, other than per- 
haps with a screen dump. 

The manual for the Isgiir Portfolio Sys- 
tem is the best for any Atari (8-bit or ST) 
program I've ever seen. Contained in a 
thick, notebook-style ring binder, the 200- 
odd pages cover each of its three pro- 
grams. The format is that of a program 
overview, followed by a detailed reference 
section (although Bridge lacked the sec- 
ond). Isgur's overview contained a five- 
session tutorial which eased the user into 
the program. 

All sections are indexed adequately. 
When combined with the many help 
screens available (which typically refer 
you to the correct pages in the manual) 
it's pretty difficult to get lost. Numerous 
illustrations reassure you that you're not 
in the wrong place. 



This was an extremely easy program to 
learn and use. I never even bothered with 
the tutorials, as the many menus and help 
screens allowed me to rapidly begin work. 
Clever program design allows the use of 
both the mouse and the keyboard to con- 
trol all program functions. 

One problem I saw was the inability to 
easily work with bonds. I had trouble put- 
ting both the government and corporate 
bonds into the portfolios, and I would 
have liked to see a field that keeps track 
of interest rates. The preference screens 
were well designed, to provide a lot of 
flexibility. The currency exchange was a 
nice feature, although I have yet to num- 
ber this among one of my concerns. Per- 
haps a different situation exists in Cana- 
da, the homeland of this program. 

Probably my biggest gripe with the 
Portfolio was its memory requirement. It 
needs an entire 520K of memory to oper- 
ate. This means first that TOS must be in 
ROM — not much of a burden, as I think 
everyone wants TOS in ROM. However, 
you also caimot, on the 520, have any 
desk accessories active if Isgur is to load. 
This means the accessory file FUNKEY. 
ACC, which lets you use function keys to 
control the programs, cannot be loaded. 
Many program functions must be loaded 
from disk when you access them: time 
wasted. 

But on the whole, the Isgur Portfolio 
System is a very nice package, and has a 
lot more featiu-es than I was able to dis- 
cuss here. Indeed, it is the best business- 
related Atari program I've ever looked at. 
It rivals those offered for the PC compat- 
ible market (and, as I said earlier, a PC 
version is available). 

Although its price is high, that is the 
nature of all high-quality business pro- 
grams. The important thing is that, de- 
spite its shortcomings, the Isgur Portfolio 
System helps you get the job done. And, 
in software such as this, that is the most 
important quality. H 

Steve Panak is o Trust Attorney and a 
free-lance writer living in northeastern 
Ohio. He holds a B.S. in B.A. and a J.D. 
He currently oversees computer opera- 
tions in his department, where he de- 
velops software to teach complex legal 
concepts. In his spare time, he enjoys 
computer games. 
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THIS MONTH: 

A good year for 
the Atari crop, 
super ST 
speculation, and 
response to 
readers. 



by Arthur Leyenberger 



Arthur Leyenberger is a human factors 
psychologist and free-lance writer Jiving 
in New Jersey. He has been an Atari en- 
thusiast for almost /our years. When not 
computing, he en;oys playing with robot- 
ic toys. 

CompuServe — 71266,46 
Delphi — NJANALOG 



Where is that program? Where is that 
program? The one that I, uh, "put away" 
so I would be sure to find it. Drat! Oh, 
hi. We're still in the thick of unpacking. 
Before w^e moved, I had set aside some 
8-bit software that I wanted to talk about 
this month, and now, of course, I don't 
have the foggiest notion of where it is. But 
there's a lot of other information worth 
discussing here. 

We've been in the new house for almost 
a month now. I've tripled my commuting 
time — so much for the joys of living in tlie 
country. I'm glad the snow is gone. I didn't 
notice before we bought the place that 
everything is uphill from here. At least we 
have a 250-foot driveway, to get a running 
start. 

Speaking of a running start, have you 
been following the Atari stock prices late- 
ly? Just check the AMEX (American Stock 
Exchange) listing of any daily newspaper. 
Atari made a public offering of stock in 
November 1986, with the stock opening 
at $11 per share. Since then, the price has 
hovered in the mid-twenty-dollar range, 
with a high of $29 per share. By Wall 
Street standards. Atari is doing just fine. 

Atari's bottom line. 

Atari had a record-breaking year in 
1986. Sales came in at $258 million, ver- 
sus $142 miUion for 1985. This resulted 
in a net 1986 income of $45 million, com- 
pared to a loss of $14 million for 1985. 
Clearly, Atari under the stewardship of 
Jack Tramiel and family has prospered 



w^ell. Not only does Atari look good on 
the balance sheet, but Wall Street and the 
investors tliink highly of the company, too. 

According to Atari, this strong growth 
in 1986 was due to the ST's steadily gain- 
ing market share, in both the United 
States and Europe. Sales for video games 
were also strong, as reflected by Atari's 
proclamation that the 1986 Christmas 
season was one of the best in recent years. 
With the IBM PC clone, the new, higher 
memory STs and a laser printer, Atari 
seems poised for even more growth in 
1987. In Sam Tramiel's words, "We are op- 
erating from a position of strength now. 
We are virtually debt free, and have a solid 
equity base on which to build the com- 
pany's future." 

Congratulations, Atari, on your succes- 
ses. We all look forward to your bigger 
and brighter future. 

iUliscellaneous ramblings. 

Atari Corp. is still planning to introduce 
a 32-bit-based ST workstation, original- 
ly dubbed the TT. Purported to arrive in 
the second half of the year (which year?), 
the "super computer" will use a 68020 
microprocessor and a 68881 math co- 
processor, and will run UNIX System V 
software — or something close to it. You 
may recall that, almost two years ago, 
AT&T (holder of the UNIX copyright and 
corporate parent of UNIX developer Bell 
Laboratories) and Atari signed a mysteri- 
ous joint agreement. Rumor has it that 
Atari has purchased a license to the UNIX 
Operatuig System, but so far, neither Atari 
or AT&T will spill the beans. 
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This number-crunching computer is 
said to interface with the DMA port of ei- 
ther the current ST or a future "enhanced 
resolution" ST. The workstation will use 
the ST as a front end for the keyboard, 
graphics and other I/O (Input/Output) de- 
vices. With Atari's still relatively small de- 
sign staff working on such projects as the 
laser printer and multi-megabyte STs, 
who is to say whether or not this super ST 
workstation will debut this year? 
From the mail pouch. 

It's been almost a year since I've re- 
sponded to letters in print, so I figured the 
time was ripe — to boldly go where no 
computer column has gone before. And 
we've had some real doozies appear re- 
cently. Unlike some magazines, we don't 
make these things up. Ah, well, it takes 
all kinds. 

Michael Rainy spoiled my day recent- 
ly with a poison-pen letter. He's upset 
with me for taking Consumer Reports to 
task in this very column [back in January) , 
for their lack of computer knowledge and 
slowness to appreciate Atari products. Mr 
Rainey is concerned with my "irrespon- 
sible vendetta against Consumer Reports." 

Mr. Rainey, you say writers like me "se- 
riously erode the credibility of ANALOG 
Computing magazine. . . because my ob- 
servations are grossly inaccurate, mislead- 
ing. . . [and] biased." Further, you call for 
"objective discussion in the pages of 
ANALOG." First of all, writers like yours 
truly are not unbiased; we ore biased. We 
get paid for speaking our minds in an in- 
formed, understandable and (we hope) 
entertaining way. I have been both Atari's 
most loyal supporter and harshest critic, 
for the past five years. I have the respect 
of my readers because I do "call 'em as I 
see 'em." What other magazine can you 
name whose writers are allowed to be so 
honest? 

I am objective in discussing the specifi- 
cations of a product, but subjective when 
I discuss the use of that product. Is the 
product easy to use? For whom is it de- 
signed? Does it feel right when I use it? 
Does it accomplish what it set out to? As 
these questions relate to my use of the 
product or your use of the product, we're 
talking impressions here. Two word pro- 
cessors for the ST can have the same fea- 
tures and cost about the same amount, 
but, in many cases, the programs have a 
different "feeling." This is a subjective 
thing, and the extent to which I can com- 
municate my opinion on it determines 
how good a writer I am. Further, I always 
try to make it clear (not necessarily ex- 



plicitly) when I'm being objective and 
when I'm being subjective. 

I am not blind to the strengths and 
weaknesses of the Macintosh, Amiga, 
MS-DOS clones, or other computers. I 
have written about them and have ac- 
knowledged that, in some respects, each 
is superior to the Atari products. Howev- 
er, I write from an in/ormed position 
when I mention products in this column 
or in reviews. Knowledge and hands-on 
use is a much better combination for eval- 
uation of products than is the "consumer- 
babble" often seen in Consumer Reports. 

Unlike you, I do remember when Con- 
sumer Reports either neglected Atari com- 
puters altogether, or printed inaccurate or 
misinformed information. And I said so 
in print, in this magazine and others (I 
won't relive the gory details here). For 
washing machines and toasters, I go to 
Consumer Reports. For computers, I read 
ANALOG Computing, ST-Log, PC Maga- 
zine, In/oWorld, Byte, PC Tech Journal 
and, yes, even other Atari-specific mag- 
azines. 

I hope you understand what I'm saying 
here and can, in the future, appreciate 
what I'm trying to do. If so, you will avoid 
the pitfall of thinking I'm on a vendetta. 
We're all in this great Atari Adventure 
together — and my aim is to help you get 
the most out of Atari computing. 

Ken Jennings from Milwaukee, Wiscon- 
sin had previously been in a stew about 
my attitude toward Atari. He thought I 
was (my words) just a mouthpiece for 
Atari's "vaporware" products, rumors and 
inaccurate specifications. In a recent let- 
ter, he congratulated me for "finally real- 
izing what a jerk Jack [Tramiel] is" and 
"getting back in sync with the rest of the 
Atari community." 

Ken says he no longer believes rumors 
about new Atari products, and that (this 
is a good one) "Atari has become the 
Grand Central Station for Fictitious Prod- 
ucts" by introducing at trade shows prod- 
ucts that never make it to market. Ken also 
goes on to criticize Atari's advertising and 
inflated sales figures, among other things. 

To begin with. Jack is not a jerk. Aside 
from the fact that I never said that in print, 
my feeling is this: he is a businessman — 
and quite a good one. I don't always agree 
with everything he does with the new 
Atari, but there is no denying that he and 
his sons have turned the company 
around. As far as new products an- 
nounced at trade shows, I learned long 
ago to simply do my job as a reporter and 
tell readers what Atari showed. 



I know that some of these products 
won't make it to market. So does Jack. 
One of the reasons they're shown is to 
gauge reaction to a potential new prod- 
uct. If there's favorable interest, produc- 
tion is encouraged. One thing you soon 
realize at the shows: a new Atari product 
will become available when it becomes 
available. 

As far as advertising is concerned, 
wouldn't you, as head of a company, want 
your ads to arouse interest, even contro- 
versy? Some people feel the Atari ads are 
in bad taste. Who cares? The only real 
question is whether or not they're effec- 
tive in generating interest in the products. 
I don't always believe everything I read in 
print advertising. Do you? 

One thing I've criticized Atari for (and 
still do, for that matter) is their minimal 
customer support after the sale. Every one 
of the top Atari execs — Jack, Sam, Leon- 
ard, Neil Harris, et. al. — seems to be a 
deal maker. That is, they seem more in- 
terested in striking a good deal with a 
supplier, retailer, etc., than in providing 
the Atari user with new software, new 
hardware and support. Look at the new 
ST machines shown at the Winter CES in 
Las Vegas: more STs, more memory, more 
expensive. Where is the memory upgrade 
for the ST user who bought his computer 
in October 1985, believing Atari's prom- 
ise of future upgrades and support? 

At every Atari press conference I've at- 
tended in the last two years, one or more 
of the Tramiels invariably says something 
about the user being the most important 
thing to Atari. Hogwash. It seems, from 
their behavior, that the potential user — 
the one who may be persuaded to buy an 
Atari computer — is the most important 
thing, not the existing user I could go on 
about the mediocre ST BASIC and ST 
Logo languages packed with the STs, or 
the poor manuals accompanying the com- 
puters, but you get my point. C\ 
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• Supereverston • DOS III to DOS 2 conversion • Color the Shapes 

• Home-made Translator • Cosmic Defender • 520ST 

• An Intro to MIDI • Note Master • Syntron • BASIC Bug Exterminator 
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ANALOG Computing Back Issues, 

RO. Box 625, Holmes, PA 19043. 
MasterCard and VISA orders, 
call 1-800-345-8112 
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Back issues on 5V4-inch disk 

$12.95 each, plus $3.00 shipping and handling. 
Issues 35 and up are available in this format. 
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Lyco Computer 

Marketing & Consultants 



HOURS 

Mon.-Thurs. 9AM -8PM 

Fri. 9AM -6PM 

Sat. 10AM-6PM 



SAVE ON THESE IN STOCK 
Panasonic Panasonic seikosha 




1080i 
$195.00 

*■ 1 20 cps Draft Mo'de 

* 24 cps NLQ 

* Word Process 

* Friction Feed 



10801 $195 

10911 $269 

10921 $335 

1592 $359 

1595 _ $499 

3131 $259 

3151 $379 



EPSON 

LX88 $209 

EX-800 S355 

EX-100O SS79 

VQ-Wa S4il9 

LQ-IOOO S659 

FX-2a6» S519 

FX-aSs S369 

LEGEND 



SP-1200AS $195 

SP-1200AI $195 

8P^420 $1075 

BP-5420 ribbon $1250 

MP6300AI $549 

Colof Kit $119 

NP1300AI $369 

CITIZEN 

120-0 S179 

MSP-10 S285 

MSP-15 $385 

MSP-20 S32S 

MSP-25 S4S5 

Premier 35 S4€g 



JUKI 



1080. 
1380. 



.$199 
.$229 



6100 $369 

5510 w/color $435 

6300 $739 



PRINTERS! 

STAR MICHONICS 

NX10 $195 

NL-10 $209 

NP-ia $169 

SO-10 $259 

NB-15. $889 

ND-15 $425 

NX-15 $339 

NH-15 $529 

NB24-5 $729 



OKIDATA 

Okimate 20 $129 

Plug n Print $CALL 

1 20 NLQ $209 

182 $245 

192+ $356 

193+ $539 

SILVER REED 

EXP 420P $209 

EXP 600P $539 
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NX-10 
$175.00 

with purchase 
of printer stand 

Limited offer 



Ml Bu 

ATARI' 

Lyco provides 90-Day 
warranty on Atari pro- 
ducts at no additional 
cost. 



Buy now and 

save 20-25% 

with these 

prices! 




1040 ST Mono 
SYSTEM 
$715^5 

1040 ST Color 
SYSTEM 
$879 95 



520 ST Mono 
SYSTEM 
$515 95 

520 ST Color 
SYSTEM 
$699 95 
(limited offer) 



Box of 10 



MAXELL 

SSDD 

DSDD 

BONUS 

SSDD 

DSDD 

SKC 

SSDD 

DSDD 

DSHD 

VERBATIM 

SSDD 

DSDD 



5'/) 3.5 

S9.99 S16.99 

S12.99 $23.99 

$6.99 — 

$7.50 — 

S8.50 S14.99 

$9.50 S16.99 
$16.99 — 

S9.99 S16.99 

$12.99 $24.! 



Call for generic diskette pricing! 



Limited Quantities! 



Limited Quantities! 



130 XE COMPUTER SPECIAL $419 



95 



A 

ATARI 



with 

ATARI 1050 DISK DRIVE 

and a 

STAR NP-10 PRINTER 

Lyco otters 90-Day Warranty on ail Atari products at no 
additional cost. 

1 30 XE and 1 050 Package $255.' 




INTERFACING ATARI 

x^r^T'.-.-.-.-.-.-.-.-.-.iiimARDWARE 

Atari 850 $109.95 

PR: Connection $59.95 

DRIVES MONITORS 

Indus GT $185.95 CALL FOR AVAfLABLE 

sf"3h ^° :;;;■•■■ |2?9 95 '^°'^^'-^ ^°" ^o'^" 

SF 354 !!!!!!!;; ; $i29!95 SYsreM! 

SHD204 $589.95 



COMPUTERS 

130 XE $125.95 

65 XE $99,95 

MODEMS 

Atari XM 301 $42 95 

US Robotics 1 200 ... $1 89 95 

Avalex 1200 $89 95 

Avatex 1200 tic S1 19 95 

SX212 $89 95 



kL 



Warjnlp $34.75 

Wtzaro's Crown 24.75 

GenysDurg 34.75 

Gemstone Healer ...'... 24.75 
Phaniasie 24.75 

SrodertxjndSoftiuare* 

Pnnt Shoo J25.75 

Pnnt Shop Comp S22.75 

Grapnic Ub I, li of III . . J15.75 

Karaiaka S18.75 

BanK St. WntBf J29.75 



WE STOCK OVER 5000 SOFTWARE TITLES! 



©MfeLDGIC 

Pinball $22-75 

Fright Sim II $31.95 

Scanery DSK $15.95 

E pyx 

Elddon $22.95 

Karate Champ ....... S18.95 

Koronisflitt $22.95 

Summer Games $23.95 



MicroProse 

Conllla in NAM $25.95 

Decision in Desert .... $25.95 

F-l 5 Strike Eagle $22.95 

Kennedy Approacn. . . .$19.95 

Silent Service $22.95 

Top Gunner ,...-..-... $19.95 

QUICKVIEW 

Zoomracks $54.95 

ZoomracKs II $79.95 



OSS'" 



I'rvn 
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Action $46.95 

Action Tool Kit $18,95 

Basic XE $46,95 

Basic XL $36,95 

Basic XL Tool Kit ... . $18,95 

Mac 65 $46,95 

Mac 65 Tool Kit $18,95 



mACCESS 

-3UE 5of rware mcorDoracea 

Leader board $24.95 

Tournament #1 $14.95 

Triple Pack $14.95 

10th Frame $24.95 

D<it^3pftliK. 

Gunslinger $20.75 

Conan $14.95 

Alternate Reality 
The Dungeon $22.75 



TO ORDER 

CALL TOLL FREE 

1-800-233-8760 

in PA 

(717) 494-1030 

Customer Service 

(717) 494-1670 
Mon-Fri 9AM-5PM 



or send to 

Lyco Connputer 

P,0, Box 5088 

Jersey Shore, PA 17740 



In-Stock items sliipped within ?4 hrs ol oiiliii NO doposit on COD orders 
Free shipping on priipnid ciish nidms within the Continental U S Volume 
discounts av.iilnlilii PA losidnnls iidd siilos tiu APO. FPO and mternalional 
orders .idd $!> 00 plus ;t"i> (oi piiotilv iii.ttl AcJverlised prices show 4% dis- 
count loi ciisli. mill .li'o till ri^iisti'iCiiid iind VISA Personal checks require 
4 wnnkK i:liiiiinMi-i' tinloin sliippiiu) We cannot guarantee compatibility. We 
niilv 'iliip Imlniv linsh moiiliiuidisu Ask about USP Blue and Red Label ship- 
liiMil All iiiiirili.iiiilisn ciiiMinl iiiultn inanutacturers' warranty. Return restric- 

III |i[ilir;ilili' ItiituiM iiiillioii/nliiin required. We check tor stolen credit cards, 

Wtt Mcc.pi iniMluisii iiiilois tfiim educational institutions. All items subject 




1-800-255-8760^ 
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ST notes 



by D.F. Scott 



Neivisworthy happenings in the ST world. 



Ready-Set'Go! 

at "Set" Stage for ST. 

Manhattan Graphics spokesperson Ken 
Abbott has confirmed that the desktop- 
pubHshing software package Ready-Set- 
Go! version 3 is being ported over to 
the ST. RSG3 currently ranks near 
Aldus's PageMaker as one of the top- 
selling DP packages for the Macintosh. 

Currently, Letraset USA Corp. of 
Paramus, New Jersey — a division of a 
major Swedish typesetting equipment 
company — has the marketing rights to 
the Mac version of RSG3. Still, 
Letraset's Marketing Communications 
Director, Curtis Dwyer, has told us his 
company has not yet decided to make 
a deal with Manhattan Graphics over 
the rights to the ST version. 

A Letraset news release claims 
RSG3 uses internal multiple-document 
word-processing features, so that the 
text can be composed and laid out 
using the same program. The Mac 
version, however, does import text 
from other word processors; and Ken 
Abbott states such features will not be 
dropped in the ST version. In fact, 
says Abbott, the ST RSG3 should 
sport enhancements and improvements 
over the Mac edition. 

Letraset states RSG3 includes the 
ability to set long articles over several 
pages in one fell swoop, and also to 
base page formats upon user-created 
layout templates, which may be used 
repetitively. Automatic column layout 
features kerning and optional hyphena- 
tion, as well as text reflow around 
graphics — so if you had an odd- 
shaped graphic, text could be set to let 
the margins flow arovmd that graphic. 



Whether or not the ST RSG3 will 
use GDOS is unspecified, but it 
should support PostScript for use with 
laser printers equipped for it. Final 
price and release date are also 
unknown, although the Mac version 
currently sells for a whopping 
suggested retail of $395. A^ 

GFA A-OK, 
RSVPs PDQ. 

Finally, rejoices the world, there is a 
BASIC for the ST that works. 
MichTron, which released GFA BASIC 
to North America for GFA System- 
teknik in West Germany, is responding 
in several ways. MichTron Customer 
Service Director Mark Bruttell tells us 
that GFA BASIC 2.0, and the 
subsequent revision of the GFA 
Compiler, was released on April 27th 
with all-new packaging. Version 2.0 
mainly features some bug corrections, 
as well as new commands which allow 
direct access to the ST blitter chip. 
The new edition of the compiler will 
be able, reports Bruttell, to compile 
permutations of source code that were 
not compilable with the older edition. 

GFA BASIC 2.0 will also feature a 
completely new manual in paperback 
form, written by ANALOG Computing 
contributor David Plotkin. 

As if that weren't enough, MichTron 
is soon to be releasing (if not by press 
time) its second BASIC accessory, GFA 
Vector which, when merged with the 
interpreter, will provide new 
commands for three-dimensional 
vector-plotted object-oriented graphics. 
Graphic objects will be interpreted as 



whole entities, and will be able to be 
moved as such. Vector plotting is 
achieved angularly, by rotation along 
an axis, or by positioning relative to 
an axis. Projected list price for GFA 
Vector is $59.95. JS^ 

New scrolls on 
old themes. 

Every once in a while, I come across a 
computer game that rests peacefully 
along the back of the store shelf 
behind Starglider and Sundog, 
pretending to be another lackluster 
product produced on a whim, though 
hiding within its modest packaging is 
a real gem. I found two such games 
recently. 

Goldrunner is a game for the person 
who sneaks to the furthest corner of 
the arcade, passing up all the modern 
stereo tri-screen games for the Galaga 
machine. Its directions, given to you at 
the beginning of the game, are almost 
completely unnecessary — in fact, here 
they are: "Gkildnmner — The Game of 
Destruction. If it moves — shoot it! If it 
is still— blast it!" 

Actually, this game is a cross 
between Galaga and Xevious: you are a 
spaceship, flying over ground areas 
called "rings," each of which have 
energy-generating stations that you are 
to destroy if you're to earn your way 
to the next ring. Leaving the demo 
game on awhile, I discovered there are 
at least 98 such rings in this game, 
each with extensive graphic detail — 
although all are variants of each other. 
Between each ring, there are Galaga- 
like bonus rounds. 

What really makes this game work, 
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READER SERVICE # 



ADVERTISER 



PAGE # 



READER SERVICE # 



ADVERTISER 



PAGE# 



102 Abacus Software 8 

115 Advan Language Design 55 

103 American TV 15 

— ANALOG Publisliing 2, 7, 70 

116 At-A-Glance 55 

113 B & C Computervision 49 

118 Banana Software 57 

123 Beckemeyer Development Tools 66 

104 Computability 16, 17 

106 Computer Creations, Inc 24 

107 Computer Mail Order 28, 29 

125 Computer Repeats, Inc 73 

110 Computer Software Services 35 

— Delphi 67 

105 Electronic One 22 

136 Elfin Magic 66 

135 G.E. Information Systems IBC 

124 Industrial Mactiine Products 66 

— Jesse Jones 26 

120 L & Y 57 

TJiis index is an addilional service. While every effort is made to provide a compJeie 



134 Lyco Computer 94 

128 Megamax, Inc 80 

126 MichTron 73 

129 Microlab 81 

114 Microtyme 53 

130 Midisoft Corp 81 

127 Newell Industries 74 

— Paradox Enterprises 80 

121 Protecto 58, 59, 60 61 

108 S & S Wholesalers 30 

112 Side-line Computer 44, 57 

131 Sierra Services 81 

119 Six Forks Software 57 

122 Software Discounters 63 

132 Southern Software 82 

101 subLOGIC Corp IFC 

109 TDC Distributors 35 

111 Tevex 40 

133 Twenty-fifth Century 87 

and accurafe listing, the pnbiisher cannot be responsible for inadi'erfenf errors. 
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iS L notes continued 



though, is its fine scrolUng of those 
well designed rings. Even with "tuibo- 
thrusters" engaged, there's absolutely 
no flicker at all. The scroll is so 
smooth you'll be taking apart your 
color monitor in search of the axle 
grease. 

Written by Steve Bak and Pete Lyon 
of 2-bit Software. Released by 
MichTron for Microdeal Ltd., P.O. Box 
68, St. Austell, Cornwall PL25 4YB, 
U.K. List price is $29.95. 

Trailblazer by Mindscape has a 
simpler though more unique premise 
(listen up, XE owners, this is for you, 
too); you are a soccer ball(!) You roll 
and bounce along a brightly-colored 
checkered landscape, in which some 
colors of checkers may be detrimental 
to your health, and may even deflate 
your ego. If you're on blue-green 
checkers, you're safe; but a turquoise 
one makes you skid, a yellow one 
slows you down, a yellow-green one 
really slows you down, a pink one can 
send you backwards, a white one 
makes you bounce, and where there's 



no checker at all — just a black, starry 
field — you drop into the infamous 
black hole (or maybe the Voit Void), 
only to be kicked back out by what 
may very well be a goalie at the edge 
of the universe. 

The game is played race-course 
style, so the object of the game is to 
set the fastest time along a course. 
Trailblazer offers twenty courses, as 
well as a random-course mode. And 
you think the random courses are 
unfair, you can design your own 
courses with the included utility 
program. You may race just to qualify 
against yourself, or against another 
person or the computer side-by-side in 
split-screen mode. 

Although the graphic appearance 
and even the name of this game were 
obviously inspired by Ballblazer from 
Lucasfilm and the premise may have 
been borrowed from Synapse's 
Rainbow Walker, this has an original 
feel to it that places it in the Realm of 
Uniqueness. By Gremlin Software for 
Mindscape, 3444 Dundee Road, 



Northbrook, IL 60062. Retail is $39.95. 

The reason I've mentioned Gold- 
runner and Trailblazer together in one 
section is that both include an original 
musical score, as well as voice- 
synthesized opening titles. I feel music 
and sound have been relatively 
unexplored qualities of microcomputer 
games up until now, and these games 
both utilize those qualities 
if imaginatively. AT 

Batteries recharged. 

A final note: within weeks of the 
acquisition of the Batteries Included 
brand by Electronic Arts, BI's 
inventory was shipped to California for 
immediate distribution through EA's 
own network. As of now, EA- 
distributed BI products — for all 
computer brands — are available 
through retail outlets. Some 
distribution companies believe, 
however, EA may decide to distribute 
BI products exclusively, thus locking 
out the distribution channels of the 
former Batteries Included. JS^ 
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left me flat../' 



"}NHh GEnie 
I discovered 
vast new 
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.00+ per hour 



$5 per hour 



There's only so far you can go with most 
ordinary online information networks. But with 
GEnie— the General Electric Network for 
Information Exchange— there's virtually no end 
to the exciting new interests you can explore. 
Discover the value of GEnie's vast range of 
services and explore new territory with guides 
from our Special Interest Groups. 

Join the friendly crew with GEnie's 
Atarit RoundTable™ Special Interest 

Group for exciting and informative discussions. 
Benefit from the expertise of experienced 
individuals. Compare notes on hardware, 
software, games or any other topic you 
choose. And, for the simple cost of down- 
loading, collect thousands of valuable public 
domain software programs for your personal 
computer. Over 1000 new programs are added 
to our libraries every month. And remember, 
UPLOADS ARE FREE on GEnie! 

No extra charge for 1200 Baud. 

Make new friends, schedule meetings, 
gather facts and figures, set up travel plans, get 
the news, be entertained and even shop online 
for a fraction of what other information services 
charge, because GEnie's non-prime rate for 300 
or 1200 baud is only $5 an hour. GEnie 
always comes out ahead of the competition in 
savings, in some cases by as much as 60%. 

You get even more for your money. 

In addition to user support groups, you can 
meet new people with GEnie's Live Wire ™ 
CB Simulator. Exchange messages with 
electronic »»ai7 service. Find the best vacation 



deals and make your reservations with American 
Airlines travel service. Shop at home with 
American Express Merchandise Shop. Learn 
tlie fun way with a subscription to Grolier's 
electronic encyclopedia. Play classic and 



Backed in the GE Tradition 

GEnie is brouglit to you by General Electric, 
whose reputation is built on attention to detail 
and customer satisfaction. We're continuing that 
tradition with GEnie. 



Compare 
Save' 


Services 


Pricing 


Travel & 
Shopping 


SIGs/User 
Groups 


CB& 
Mail 


Financial 
Services 


News 


Games 


Registration 
Fee 


Monthly 
Minimum 


Non-prime lime rates \ 


300 baud 


1200 baud 


The Source 


X 


X 


X 


X 


x 


X 


849.95 


810.00 


88.40 


810.80 


CompuServe 


X 


X 


x 


X 


x 


X 


839.95 


none 


86.00 


812.50 


GEnict 


X 


X 


X 


X 


X 


X 


$18.00 


none 


$5.00 


$5.00 



*/lasic rates liuct services s/xtmi in effect 2/87. ^Non-prime I/me uppUes Mon.-Fri., 6ptn-8am local time, all day Sat, Sun., antlnat l holidays. Subject to 
service arailablllty. Adtiltional charges apply for Mm hatiil and financial services. 



multiplayer games. Use GEnk's Financial 
Services to track stock market quotes, check 
market indicators and m;untain an automatically 
updated personal portfolio online, All thisplus 

new services added each and every month! 

Map out your own voyage of discovery 
with GEnie as your guide , , .enrich your 
tomorrows by signing on with GEnie today. 

Sign up from your Iteyboard today. 
4 Easy Steps: 

1 . Flave your major credit card or 
checking account number ready 

2 . Set your modem for local echo 
(half duplex)-300 or 1200 baud. 

3. Dial 1-800-638-8369. When 
connected, enter HHH 

4 . At the U# = prompt enter 
XJM11877,GEnle then RETURN. 

Need help or more information? No modem 
yet? We can help. In U.S. or Canacki call 
1-800-638-9636. 

t Atari is a registered trademark of Atari Corporation 
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Stay online longer, for less. 




INFORMATION 
SERVICES 



General Electric Information Services Company, USA 

GEnie rates and services subject lo change. Uploads are free during non- 
prime liours at 300 or 1200 baud. Sotiie services offered on Genie may 
include additional charges. 
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Actual Atari ST screen I 



Actual Apple IIGS screeni 



'"What an experience! 
Like being in a moviel" 

(ompriki r,rili-tUilii<-i. IH-<. IIHHI 
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Actual Macintosh screeni 
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